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SpeediskT", 
Ja RAM Card à mémoire permanente 


Rapidité Temps d'accès à l'information : 0.2 ms 
' (100 fois plus rapide que les disques 
; durs.…..). 
l É 
0 Par exemple : 


démarrage sur Basic.System en 3 s, 
AppleWriter disponible en à peine 15. 


Fiabilité Constituée de circuit CMOS à très 
faible consommation, SpeediskTM est 
aussi fiable que l'ordinateur lui-même. 
Elle est insensible à l'environnement. 


Capacité Speeaisk"" est proposée en quatre 
versions : e 
1 Mo (1 048 576 octets) “€ 40 
384Ko extensible à 1Mo ET 
avec horloge compatible ProDOS 
(pour les Apple )(+, //e) où sans (IIGS) 


Compatibilité 100% compatible avec ProDOS (c'est 
un volume), SpeediskTM fonctionne sur 
Apple )(+, sur Apple //e et sur Apple 
lIGS. 


PriX Lecteur de Pom's, vous bénéficiez 
d'une remise de 10 % : 


SPAOO 
384Ko 352000 | 3591,00 
SP1000 | 
1 Mo 5000 539100 


SP4OOH Re. 
384Ko horloge 458000 412200 
SP1000H 
1Mohoroge 653806 592200 


Garantie SpeeaiskT" est une fabrication 
française garantie un an par échange 
de la carte. 


Banc d'essai dans la revue Pom's n° 31 
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Ce bref questionnaire 
est pour nous une 
précieuse source de 
renseignements : ses 
précédentes appari- 
tions sont à l'origine des 
disquettes DOS/Pro- 
DOS, des disquettes 


3,5", des programmes Apple ]J[+..........… 
de communication. Il ADDIE 1e 
nous permettra de Apple //e+.....… 
suivre au mieux Apple //C 
l'évolution de vos be- Apple Ilcs 
soins et celle de votre Apple /// 
matériel. Il constituera Compatible 
également un moyen de Macintosh 128 
gagner l'un des 10 abon- Macintosh 512 .…….. 
nements avec dis- Macintosh Plus. 
quettes… Lisa/Mac XL... 
Mac I/5E.:...... 
Vous avez : Votre imprimante : 
— de 15 ans... O ImageWriter 
de 15 à 19 ans... O ImageWriter 2 
de 20 à 24 ans... O Apple DMP 
de 25 à 34 ans... O LaserWriter 
de 35 à 45 ans... O EP — 
+ de 45 ans O Seïkosha 
Mannesman 
Sexe Centronics 
Masculin... O OKThssesreneres 
FÉTAIRIN nimes O ScriDe serres 
Autre 
Les langages que vous 
pratiquez aisément : 
BASIC O Extensions, 
Pascal... O périphériques : 
FOR rs O Carte 80 colonnes .….O 
ÉOBO ss ssissssmiennsses O 80 col. étendue …… O 
Asm Apple //.….…… O Carte Z80 CP/M ….O 
Asm Macs O Carte souris... 
Autres Disque dur 
RE D TNT Lecteur 140Ko 
Lecteur 800Ko 
Votre niveau en pro- Table traçante 
grammation : NERO 
Utilisateur O Modem 
Débutant >. O Extension mémoire O 
Intermédiaire O SDECISK sem 
PES ei mate ee O Autre : 
Haut niveau OR ni ire 


Chaque semaine, vous 
êtes devant votre 


micro : 
— de 2 heures... O 
de 3 à 8 heures... O 
de 9 à 16 heures... O 
+ de 16 heures O 





Votre ordi 


nateur : 


Prochainement, vous 
allez acquérir : 
Apple // 
Macintosh 


ÉPETETEECELELCCELELEE 





CalvaCom : 


Vous êtes abonné ….O 
Depuis : 

6 mois ou plus ……. O 

Moins de 6 mois ….O 


Combien de numéros 
de la revue Pom's 
avez-vous lu ? 


De 5 (très bon) à 0 (très 
mauvais), votre 
opinion sur: 

Niveau général …__ 


Présentation ……… ne 
Intérêt des 
programmes 9 
Clarté des 

ATTICIES nee — 
Intérêt pédago- 

BIQUE + 
Micro-Infos LE 
Disquettes er 


EPLTETLELELEECEL EEE EEE ECECELECECEECEEE 


ÉPLTELLELELTELELLLLELELEELELCECEEEELEEEE 


PPETETIELELLELEL EEE LE LEE EE LEE EECEEEE 


PEPETLELELEELELELTELELLELELELEELELEEE 


PPETELLELELTELELELLELELLELELELEELECEEE 


O Ce que vous détestez : 


PPETELEELELTELETELEE EEE CELECECEELEEEEE 


PETELELEEEELEELELELEELEEEELELELEELEEEE 


PPPEETLELELEELELLELELELEEEELEEE EL ELLE 


PPETELLELELTELELELEELELEELELELEEEEELEE 


PPETELLELELTE LE TELLE LELLELELELEEEEEEEE 


PEPTETLELELTECELELE ELEC CELECECEEEECEEEES 


Ce qu'il faut changer : 


PLELELELELLES ELLES CEE LEE ELE EEE EL LEE 


Ce qu'il faut 
développer : 


ÉEEILELELLELELEELELELLELELEEEE EEE EE EEE 
CETELTEEEEEELEEELTELEL EEE EEE EELCEECE CES 
PETEELELEL CES ECCELE LLC EEE EEE EEE CEE 


PECCELELELTELEELEL ELLE EEE EEE ELLES 


Vos autres revues 
informatiques : 


CÉCELCELEELECEEC CET ELECEL EEE LE LELEELEE 
PETETLELELLELELELEELE LEE EE EE EE EEE EE 
PELELTELTELELELEE TELLE EE ELL EEE LEE LEE 


PETELCELLECELEECELECE EEE EEE EE EEE CEE 


EPEELELELLEEELEELELELLELELELEEEELLEEEES 
PTELEET ELLE ELCELLEEEL EEE EL EEE ELCEEEEEE 
[PETETLELLELEL EEE TELE EL EEE CE EE ECEELCEE 
PEELELELLEEECEEEE CELL ELELCELCECELEE EEE 


PPPTLELELELLELEILE TELLE LELELEELCE EEE EEE 


EPTTEELEELELEEL EC EEE EE CEE EE ELLE LELEEE 
EPETEECEECELELELCECEEEEELELECECEEEEELELES 
PETLLETELTELEEEET EL ELEC EE EEEEECEEEELELEES 


ÉPTELECEEELEETEL TEE ELEC EE CECEEECEEEECEL EE 


PETELELELELLELEE TELLE EEE EL ECECEECELCELES 
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Éditorial 


Pom’s est entré dans sa septième année ! 

Nous avons vu beaucoup d’eau passer sous les ponts. Nous avons 
vu naître et mourir l’Apple IL Golden, Infomag. Maintenant, 
c'est l’Apple Ic dont la vente est interrompue. La gamme 
Macintosh est apparue et porte à présent très haut le flambeau, 
ayant même réussi la percée dans les grands comptes ce que les 
autres modèles de la marque n'étaient jamais parvenus à faire ; 
il entraîne dans sa lancée l’Apple Iles qui devient 
incontestablement un ‘grand’ de la gamme. Apple Expo, chaque 
annéeuneréussite,nousrassure sur l'avenir denoschers micros : 
le fruit du travail des développeurs aussi bien dans la création de 
programmes que dans le ‘hard’ semble bien sans limite. 


Dans cette optique, nous continuons à faire évoluer Pons pour 
vous apporter une qualité de service grandissante. C’est 
aujourd’hui la possibilité, par l'intermédiaire de notre boîte aux 
lettres CalvaCom, de passer des commandes télématiques et de 
nous soumettre vos problèmes techniques dans la mise en œuvre 
des programmes de la revue : il nous arrive de répondre à des 
heures fort tardives et même durant le week-end... Il nous faut 
hélas, lors d’affluence, privilégier nos abonnés dans notre assis- 
tance technique : abonnez-vous ! 


S'abonner, c’est — outre une priorité dans l’aide que nous vous 
apportons— recevoir Pom’s avant la mise en kiosque, c’est passer 
gratuitement dans votre revue des petites annonces, c’est égale- 
ment recevoir par tirage au sort des cadeaux-surprise de valeur : 
logiciels, documents techniques (nouveaux abonnements sous- 
crits à partir du 30 novembre 87). C’est aussi un rapport plus 
étroit avec Pom’s, un plus grand poids dans vos suggestions. 


Idées, nouvelles orientations ? Notre sondage ci-contre nous 
permet de mieux vous connaître, c'est une sorte de trait d’union. 


Notre ami Jean-Michel Gourévitch est en route vers de nouvelles 
aventures et c’est désormais Jean-Yves Bourdin qui assurera la 
chronique des nouvelles sur Apple //. À cette occasion nous vous 
proposons une nouvelle formule, “Apple // for ever”, composée de 
huit rubriques. Là encore, c’est à vous de dire ce que vous pensez 
de cette innovation et aussi à vous d’y contribuer : envoyez-nous 
nouvelles, informations, ‘patches’. 


Le contenu de ce numéro satisfera certainement les besoins de 
chacun ; en couverture, l’un des résultats de nos recherches dans 
le domaine de la communication : le couple micro-ordinateur/ 
Minitel est doué d'un potentiel peu commun... 


Hervé Thiriez 




































a carte Speedisk, grâce à 
l'extrême rapidité d'accès 
aux fichiers, permet 
d'envisager de nouvelles 
applications WPL — lan- 
gage de programmation 
d' l'AnpleWriter -, applications qui 
resteraient lentes d'exécution sur les 
supports traditionnels ; les programmes 
présentés ici demeurent toutefois 
utilisables sur tous types de supports. 





Nous vous deux 

programmes : 

- le premier permet de disposer de la 
date dans un fichier à charger à tous 
moments par une commande 
glossaire par exemple ; 

- le second montre un exemple 
d'automatisation du courrier répétitif 
habituel, devis, commande, 
relance... Cet exemple utilise la 
date et gère une numérotation de 
documents. 

Bien sûr, pour que tout cela fonctionne, 

il faut disposer de la date. Il y a trois 

méthodes : 

- doter son Apple d'une carte horloge ; 

- y installer une Speedisk avec option 
horloge ; 

- disposer d'un programme de boot qui 
demande la date et la met à jour dans 
les octets S$BF90/$BF91 de 
ProDOS. REBOOT.SYSTEM dis- 
ponible dans la bibliothèque de 
CalvaCom convient fort bien. 


La date 


proposons 


Le premier programme WPL, qui se 
contente de vous offrir la date à la 
française (03 novembre 1987), s'exécute 
en faisant simplement : 

<ctrl-P>DO STARTUP.D 

Avant cet ordre, vous aurez mis sur 
votre disquette (ou plutôt volume) les 
fichiers STARTUP.D, INIDATE.D (le 
fichier intermédiaire VARIDATE.D se 
crée automatiquement) et DATE. 

Un instant plus tard, le fichier DATE 
créé sur le volume contient la date du 


jour : pour l'utiliser faire simplement : 
<ctrl-L>DATE 

Mieux : installer la commande glossaire 
D<ctrl-L>DATE> 

ainsi, la date sera sous la pomme : GD. 


Concrètement, le fonctionnement se 
résume ainsi : 


STARTUP.D 


C'est le premier programme à 
s'exécuter. Il sauvegarde un fichier vide 
dans le catalogue courant puis charge ce 
catalogue en mémoire texte. La date en 
cours est la date de modification du 
fichier “VIDE” sous la forme : 
mm/jj/aa. STARTUP.D isole donc cette 
date en mémoire texte et la transforme 
en un programme WPL sauvegardé sous 
le nom de VARIDATE.D et exécuté à 
son tour par la dernière commande de 
STARTUP.D. 


VARIDATE.D 

Ce programme n'a qu'une fonction : il 
place dans les variables $B le mois, $C 
le jour, $D l'année, ce qui va permettre 
de les traiter à notre convenance. Cela 
fait, VARIDATE.D lance l'exécution de 
INIDATE.D, 3ème programme WPL 
(heureusement que Speedisk met un 
tigre dans AppleWriter.…). 


INIDATE.D 


Il était peu utile de garder la date sous la 
forme 01/01/1987, INIDATE.N 
peaufine le travail en la présentant sous 
la forme 01 janvier 1987 et en la 
sauvegardant dans le fichier texte 
“DATE” (remarquer le PGO Variable 
bien utile dans le programme WPL). En 
fin d'exécution, DATE est disponible. 


Remarque : si aucun de vos 
programmes WPL n'utilise l'une des 
quatre variables disponibles ($D, par 
exemple), cet ensemble pourrait 
simplifié. La date mise en forme serait 
placée non plus dans un fichier mais 
dans la variable $D, INIDATE se 
terminant alors de la façon suivante : 





Lyda Pétkovd 


12 pas décembre =$C 

pas $B$C $D=$D 
$D resterait alors utilisable autant de 
fois que nécessaire au sein d'un 
programme WPL par la seule fonction 
du type : 

F/ (DATE) /$D/ 

O? 

STARTUP.D, VARIDATE.D et 
INIDATE.D ne sont exécutés qu'une 
fois, à la mise en route d'AppleWriter. 
Si STARTUP.D est renommé 
STARTUP, vous bénéficierez d'une 
exécution automatique lors du 
démarrage. 





Un exemple 
complet 


L'exemple d'utilisation qui suit inclut, 
en plus de l'usage de la date tel que 
décrit, une fonction de numérotation 
automatique des documents retenant la 
forme : numéro d'ordre numéro du mois 
(6709, 6809, 6910, 7010, etc). II 
conduit à la réalisation semi- 
automatique de commandes ou de 
relances. 

À cette fin le programme STARTUP.N 
remplace le précédent STARTUP.D. 
STARTUP.N crée un programme 
VARIDATE.N complété par la mise à 
jour du ruméro du mois dans le fichier 
NUMERO. 


STARTUP.N 


La comparaison des deux startups et des 
programmes VARIDATE respectifs 
qu'ils créent, permet de bien comprendre 
le processus de transformation de la 
date, initialement isolée du catalogue, 
en un programme WPL. 

Remarquer l'usage dans la 18ème ligne 
de $C au lieu de $C. S'il était écrit $C, 
l'exécution de la fonction de 
remplacement mettrait la valeur 
courante de la variable $C au lieu du 
nom de variable $C. Reste ensuite à 
ajouter la commande de remplacement 
de $ par $ (c.f. fin du programme). 

Est ajouté aussi le chargement du 
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glossaire (QEGLOSSAIRE) dont la 
seule commande prévue permet revenir à 
tout moment au programme CHOIX. 
Cette commande est donc à ajouter à 
votre glossaire habituel. 


VARIDATE.N 





commande <ctrl-C> <ctrl-P> 
doCHOIX> (remarquer que > après 
DOCHOIX signifie RETURN mais 
certaines versions d'AppleWriter exigent 
à la place le signe $) qui permet par la 
commande : Cctrl-C d'appeler CHOIX 
après chaque application. 





Utilisation 


Pour essayer l'exemple ci-après proposé 
il vous faut dans le catalogue courant : 


1 STARTUP.N 


ee : 
VARIDATE.N contient maintenant la 2 a — 
fonction de mise à jour du numéro du 3 CHOIX , 
mois dans le fichier NUMERO. Il lance COMMANDE (RELANCE) À PROS 
l'exécution de INIDATE.N es petit Lie pos Ne né: 5 RELANCE 

placer dans une fiche standar 6 FICHCOMMANDE 
INIDATE.N (FICHCOMMANDE) préparée et mise 7 FICHRELANCE 
Sans changement, lance l'exécution de en page à votre convenance, les données 8 NUMERO 


CHOIX. 
CHOIX 


Exécuté pour la première fois 


variables mais systématiques qui lui 
sont liées. Pour ce qui nous occupe 
présentement, il s'agit de la date par les 
instructions : 


qui contient uniquement le numéro 
à incrémenter 
3 GLOSSAIRE 
10 DATE 


automatiquement par l'intermédiaire de PLSDATE=$A 
INIDATE.N, il doit être le passage .. Après chaque application on revient 
obligé de toute nouvelle application F/ (DATE) /$A/A directement au menu de CHOIX par la 


d'où la commande incluse dans le 
glossaire, 

Pour limiter cet exemple, seules les 
options 1 et 3 sont utilisées. L'option 1 
permet de préparer une commande et 
l'option 3 une relance. 


Les programmes WPL RELANCE et 
COMMANDE sont simplifiés. Ces 
programmes doivent charger les fichiers 


et du numéro par la même méthode : 
PLSNUMERO=$C 


F/ (NUMERO) /$C/a 
Le fichier NUMERO est mis à jour 
(incrémentation de 100 de sorte que 
6709 par exemple devient 6809) et 
sauvegardé pour l'application suivante. 
La lettre de commande créée est 


commande glossaire Gctrl-C. 


Remarque : pour la simplicité de la 
présentation, cet ensemble n'utilise 
aucun sous-catalogue. Il est pourtant 
préférable de prévoir le classement des 
fichiers et programmes dans des 
sous-catalogues spécifiques. En 


A HE dE détenir ADF OGrIÉR sauvegardée sous le nom : particulier, pour le fichier VIDE, l'idéal 
mue rR SES se M ss C.nom de fichier numéro est qu'un catalogue lui soit réservé afin 
prOBT d'ùils cotnide WP : que la fonction de recherche de 


choix à l'aide, d'une part de la fonction 
de comparaison : contrôle de Escape, et 
d'autre part d'une boucle numérique 
limitant la valeur choisi entre 0 et 4 : 
O<CHOIX>4. 


GLOSSAIRE 


Le glossaire ne contient que la 


SC.SB$SC<H><H> 


où <H><H> permet de supprimer le 
numéro du mois : si $C = 6709, 
$C<H><H> = 67. 

Le fichier ainsi créé permet de faire la 
sauvegarde finale par un simple 
<ctrl-S>=. 


STARTUP soit rapide. Si tel n'est pas 
le cas il est souhaitable de placer VIDE 
au début du catalogue courant car 
STARTUP cherche non pas le fichier 
s'appelant VIDE mais le premier fichier 


de longueur nulle ! 

























Fichier STARTUP.D ASS FREE ia aÔÿE 
+0? en ur 

10 Efface mémoire texte °F!/!£°PAS! programme 

+ <ESC><ESC> Efface ligne status 0? WPL 

*PND Supprime affichage .B 

-PPRun-instante! Affiche le message °FlelePASI 

+SVIDE Sauvegarde un fichier vide 0? 

*0 Accepte son remplacement FX, #=$C, * 

*OA£ Charge le catalogue 0? 

°? Quitte les cdes ProDOS °F#,*=$B, * 

-B Va au début catalogue 0? 

*FXe--i--sese.e0*  Positionne le curseur + SVARIDATE.D Le sauvegarde. 

.? Quitte la recherche +0 

D Change le sens (<) à oz 

°W Charge la date dans le buffer Sen pt 1 sr 

°NO Efface mémoire texte , È 

e Change le sens (>) Fichier DATE 

x Date en mémoire texte 

D Change le sens 03+novembre +1987 pas de retour chariot après 


+F*e%*=$D, eNO, *PDOINIDATE.D* 











Fichier RELANCE 


*PND 
+-PPR<CTRL-L> 
-N0 
+ PLSNUMERO*=$C 
ePSX° $C 
ePSX°+100 
*PAS(X)=$D 
+ LNUMERO 
+F/$C/$D/A 
.S= 
+ PLSDATE=S$SA 
e-PPReNuméro-de-documentess.ss..s...e .….. sessc 
ePPReDatereresessseeseseseesessssccsssse ee SA 
°PPR 
NO 
+ LFICHRELANCE 
+BF/ (DATE) /$A/ 
*0?7F/ (NUMERO) / $C/ 
°0? 
APP+PPR° (1) -Monsieur*+ (2) -Madame* + (3) -Mada 
me, ‘Monsieur-e 
*PPR°RETURNepour + "Messieurs'"e+ (Ets, SARL, *Etc.) 
ePINveccsessmoceoeseeeseseeenesseeseueues ee =SA 
*PCS/$A// 
*PGOS 
*PSX$A 
*PCS/(X)/0/ 
°PGOAPP 
°PSYO 
BOUCLE °PSY+1 
*PCS/(Y)/4/ 
+ PGOAPP 
°PSX-1 
+ PGOBOUCLE 
+PGOS$SA° 
1°+F/(APPEL)/Monsieur/a 
+°PGO°-NO 
2°+F/ (APPEL) /Madame/a 
*PGO°-N0O 
3°+F/ (APPEL) /Madame, Monsieur/A 
+-PGO°+NO 
S°F/(APPEL) // 
*0?F/ (APPEL) /Messieurs/a 
NO+PPR-Nom-du-fichier-de-sauvegardeseeesese 
ePINeeesesessssssesesansesigne*ni*espacet:°+=$B 
*PCS/$B// 
+PGONO 
*<PPReNomecomplet-du-destinataire+(returne=°°$B) 
ePINveoroseseseeeesseeeesesessessseseseeee ee =S]) 
*PCS/$D// 
*PAS$B=$D 
«PINePrénomeeeeessesssssesssssssssseuecee :ee=Sa 
+F/ (PRENOM) /$a/ 
*+0?F/ (NOM) /$D/ 
*O?PIN-Adresserersessssecessseesseseeeeeeee :ee=SA 
°F/ (ADR) /$A/ 
°0? 
A*PINeDate-de-la-facturer.e..e,,/,,/,.%%+e:+°=$a 
*PCS/$A// 
+*PGOA 
+F! (DATE) !$A! 
+0? 
FePINeNuméro-de-la-facture-eee,,,,/,,ee.e:..=5$A 








°PCS/$SA// 


*PGOF 


*F! (NUMERO) !$A! 


*0?7B 


C°PIN°Concernant........., CCRREREREEEEEEEEREEETE 
+F/ (CONCERNANT) /-concernant°+$a/ 


+0? 


PePINeMontant + TTCee+ (nombre-seul)-e........e:ee=$5a 
-PCS/$a// 


*PGOP 


°F/ (MONTANT) /SA/ 
*0?SR. SBSC<CTRL-H><CTRL-H> 


Fichier INIDATE.D 


-.N0 


Efface page texte 


+ *PGO$SC GOTO variable : $C est 
00°PGOERR le n° du mois. 
01+pas+janvier=$c 

*-pgod Changement du n° de mois 
O2+pas-février=$c ennom de mois 
*+-pgod 

O3+-pas+-mars=$c 

*-pgod 

04+*pas-avril=$c 

**-pgod 

O5epasemai=$c 

*epgod 

06+pas+juin-$c 

*+pgod 

07epas+juillet=$c 

**-pgod 

08+-pas-aout=$c 

*+.pgod 

09epas+septembre=$c 

*+-pgod 

10+pas-octobre=$c 

*+-pgod 

11-pas-novembre=$c 

*+-pgod 

12+pas*+décembre=$c 

deLDATE Charge fichier date 
cFh—eteo----#$B$Ce5D* 


+0? 
= 
NO 


En remplace le contenu 


Le sauvegarde 


*PPR la date $B$C $D est dis 


-PPR 


—ponible dans le fichier "DATE" 


*PPR voir l'exemple d'utili 


°PPR 


sation avec STARTUP.N 


*PIN taper une touche : 


+POT 


Fin 


ERR°PPR<CTRL-L> 
*PPR vous n'avez pas de carte h 


orloge ou bien 


*PPR vous n'ètes pas passé par R 


EBOOT. SYSTEM 


-PPR votre fichier ‘vide' n'a do 


nc pas de date de modification 


*PPR ce programme n'est pas utilisable. 


PIN 
°N0 
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Fichier COMMANDE 


+ LFICHCOMMANDE 
*F/ (NUMERO) /$C/a 
*F/(DATE) /$A/a 


NO°PPRe-Nom-du-fichier-de-sauvegarde--e.e.eses 
ePDINesssssssssesss.sansesigneni*espace®:.+=$B 


*PPR-Nom-complet-du-destinataire+(returne=".°.$B) 


ePINrossesesssseresesesesssseesecesseeesee see =S]) 


°PINeAdressesssssssssesesesssseeseeseeee:ee=$SA 


*PND 

+ PPR<CTRL-L> *PCS/$B// 

*NO + PGONO 

+ PLSNUMERO°=$C °PPR 

*PSX° $C 

ePSX+*+100 

*PAS (X) =$D *PCS/$D// 

+ LNUMERO + PAS$B=$SD 
*F/$C/$D/A *F/ (NOM) /$D/A 
°.S= 

+ PLSDATE=$A *F/ (ADR) /$A/A 
*PPReNuméro-de-documenteeeceessesecececccesee $C *F/Ref/ 
ePPReDatevesessoerssessersssessesesseosees ses SA °? 

*PPR ° JJJI 

*NO +SC.$B$C<CTRL-H><CTRL-H> 





Fichier 
INIDATE.N 


NO 

ee PGO$C 

00 + PGOERR 

Olepas*-janvier=$c 

**-pgod 

O2-pas-février=$c 

*.epgod 

03*pas+mars=$c 

++pgod 

O4-pas*avril=$c 

*.pgod 

O05-pas-mai=$c 

*++pgod 

06+pase juin=$c 

*+-pgod 

O7epas+juillet=$c 

+++pgod 

O8+pas-aout=$c 

*+-pgod 

09-pas*+septembre=$c 

*+pgod 

10-pas-octobre=$c 

+++pgod 

11-pas-novembre=$c 

*+-pgod 

12-pas-décembre=$c 

deLDATE 

°F#-—eope-—-*SBS$SCeSD* 

°0? 

.5= 

*PDOchoix 

ERR°PPR<CTRL-L> 

*PPR vous n'avez pas de 
carte horloge ou bien 

*PPR vous n'ètes pas passé 
—par REBOOT.SYSTEM 

*PPR votre fichier 'vide' n' 
à donc pas de date d 
—e modification 
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*PPR ce programme n'est pas u 
tilisable. 

°PIN 

*NO 


Fichier GLOSSAIRE 


<CTRL-C><CTRL-P>DOCHOIX> 


Fichier VARIDATE.D 
*PAS11=$C Met mois dans $C 
*PAS03=$B Met jour dans $B 
ePAS1987=$D Met année dans $D 
NO 

*PDOINIDATE.D Exécute Inidate.d 


| Concernant les listings 


Dans les programmes WPL listés 

ici : 

les ‘+’ symbolisent les espaces, 

les caractères qui suivent le signe 
‘— sont la suite de la ligne 
précédente, 

<ctrl-L> symbolise le caractère 
contrôle-L que l'on saisi dans 
Apple-Writer avec la 
séquence clavier : ctrl-V ctrl-L 
ctrl-V ; 

Idem pour <esc> à saisir ainsi : 








ctrl-V touche escape ctrl-V. 





Fichier CHOIX 


+ <ESC><ESC> 

+PND 

OPTION°-PPR<CTRL-L> 

+PPR 

°PPR 

ePPRes.0e........]-:commande 

°PPR 

ePPRe..0.......:2+.+]ettre 

+PPR 

ePPReess..e....+3e-re]lancer® 

°PPR 

ePPReseeseese<Esc>--quitter 

*PPR 

°PPR 

ePINvesoseoeesesossseeue.s 
*++choisireune-optio 
—neleàe3e:e=$B 

*PCS/$B/<ESC>/ 

+ PGOQUIT 

+PSX$B 

*PCS/(X) /0/ 

+ PGOOPTION 

°PSYO 

BOUCLE + PSY+1 

*PCS/(Y)/4/ 

+ PGOOPTION 

-PSX-1 

+ PGOBOUCLE 

+NO 

+ PGOS$B 

1 + PDOCOMMANDE 

2®PPR<ESC>--s.seChoisirel-ou 
—+3-pour-un-essai 

°PPR 

ePINsesssessssssesesesecsecee 
—*--.taper-une-touche*: 

+ PGOOPTION 

3 ° PDORELANCE 

QUIT°<ESC> 


-NO ProDOS 


























Fichier STARTUP.N 


NO 

+ <ESC><ESC> 

°PND 
-PPRun-instant-! 
-SVIDE 


°B 

Free (x 
°? 

D 

°W 

-NO 

*D 

°Xx 

D 


eF*e*=$D, °NO, + LNUMERO, °HH, °F<? 
—?<SC<, °0?, °S=, *PDOINID 


—ATE.N* 
*0? 
°F1/1£e°PAS191! 
°0? 
°F!1/!£°PAS! 
°0? 
-B 
eFlelePAS! 
+0? 
FX, *=$C, * 
°0? 
°F*, *=$B, * 
+0? 
eF<S<S<A 
+ SVARIDATE.N 
-0 
+ CEGLOSSAIRE 
*pdoVARIDATE.N 


Fichier 


VARIDATE.N 


*PAS11=$C 
+PAS03=$B 

+ PAS1987=$D 
°NO 

+ LNUMERO 

°HH 

eF<??P<$C< 

*0? 

°S= 

+ PDOINIDATE.N 





Fichier 


NUMERO 


411 FF 





Fichier FICHRELANCE 


+39 
.md140 


Paris, le (DATE) RAPPEL (NUMERO) 


(APPEL) (PRENOM) (NOM), (ADR). 


-MG10 
- MD84 
(APPEL), 


En date du (DATE), je vous ai adressé ma facture n°(NUMERO), 
(CONCERNANT) . 
Or à ce jour,aucun réglement ne m'est parvenu. 


Je pense qu'il s'agit d'un oubli de votre part, et vous prie 
de bien vouloir m'adresser la somme de : (MONTANT) Fr par 
tout moyen à votre convenance. 


Dans l'attente, 
Je vous prie d'agréer, (APPEL), mes salutations distinguées. 


Signature 


Fichier FICHCOMMANDE 


-Mg2 
.JG 
.ma90 


Paris, le (DATE) COMMANDE N° (NUMERO) 


.Ma140 
(NOM), (ADR). 
-Ma90 
-MG10 
SCOMMANDES 
Réf Désignation Quantité Unité 
. MG4 
.Identité bancaire .... : code étab. guichet compte clé RIB 
Banque XX XXXXXX XXXX XXXXXXXKXXX XXKX 


Répertoire des métiers : XXXXXXXXX 
STONES secure 2 MAXXANAANARAX 
.MGO 











Patrice Neveu 


convertir les images HGR en | 
mosaïques Minitel à plusieurs 
niveaux de gris, plus ou moins 


Nouvelle étape des recherches de Pom’s dans le domaine - 
de la communication, voici un programme de conversion 
Image HGR/écran semi-graphique Minitel, ce qui —  contrastés, ou en noir et blanc ; 
compte tenu des contraintes Vidéotex (2 couleurs - sauver le résultat sur disque ; 
seulement par groupe de 6 pavés) — représente une “le récupérer ultérieurement. 


recherche remarquable. 


Cette nouvelle étape, après le détecteur de sonnerie du 
numéro 32 représente un pas de plus vers une prochaine 
application conversationnelle entre votre ordinateur et le 


Minitel de vos correspondants : l'Apple // serveur. 








raison de vous abonner ? 
en voici quelques-unes : 


% six numéros pour le prix 


© une assistance tech- 
nique prioritaire, par 
téléphone, par Calva- 
Com ; 

& Pom’s dans votre boîte 
aux lettres avant mise 
en kiosque ; 

les petites annonces 
gratuites ; 

8 un tirage au sort à 
compter du 30 no- 
vembre pour recevoir 
logiciels de valeur, docu- 
mentations techni- 

ques... 
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Minitel connecté de fraîche date 
continue à faire triste mine avec 
son texte et ses médiocres 
images. Il suffit pourtant d'un 
programme de conversion pour 
profiter de ses 8 nuances de gris 


de cinq ; et de ses mosaïques semi- 
YŸ l'assurance den'enrater | graphiques. 
aucun ; Quoi de mieux pour surprendre 


un utilisateur qu'une Lady 
numérisée, ou votre dernière 
œuvre graphique réalisée souris à 
la main ? 


Méthode 


Mais ces images HGR ont une 
définition de 280 x 192 points, 
tandis que notre petit Minitel ne 
peut en afficher que 80 x 72. Il y 
aura certes perte importante de 
définition, mais vous serez 
surpris par ce dont ces 1440 
points sont capables après être 
remplis par la routine 
HGR.MNTL. 


Ce programme est conçu pour 
pouvoir : 


La conversion se déroule en deux 
phases : 


La première est écrite en 
langage-machine et analyse 
l'image HGR pour donner le 
nombre de points par zones de 3 
x 3 ou de 4 x 3 points, stocker 
ces chiffres, puis indiquer de 


Eu Re Pas Le combien de points est constituée 
7 l'image entière. 
5 abonner perbes images en D ; 
haute résolution sur 
Vous cherchiez une bonne nos Apple //, le 


Chaque petite zone formera un 
carré sur l'écran du Minitel. Or, 
comme l'indique la page 10 du 
Pom’s n° 29, chaque caractère 
Minitel contient 6 de ces carrés. 


Ainsi, les 280 colonnes HGR 
deviendront 80 colonnes Minitel, 
d'alternativement 3 puis 4 points 
HGR de large. Ce compte curieux 
est nécessaire à cause du stockage 
même des points HGR en 
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mémoire : 7 points par octet, et 40 Cela nous permet d'obtenir les 


octets par ligne que l'on doit 
mettre en relation avec les 40 
caractères par ligne du Minitel. 


Quant aux lignes, nous 
n'utiliserons que 192 lignes HGR 
(3 lignes par carré mosaïque), soit 
64 lignes mosaïque, ou encore 21 
lignes de caractères Minitel. 


Donc horizontalement, 

- 1 ligne Minitel = 
40 caractères Minitel 

- 1 caractère Minitel = 
2 colonnes mosaïques 

- 1 colonne mosaïque = 
3 ou 4 colonnes HGR 


et verticalement, 

- 1 colonne Minitel = 
24 caractères Minitel 

- 1 caractère Minitel = 
3 lignes mosaïques 

- 1 ligne mosaïque = 
3 lignes HGR 


La seconde phase est écrite en 
Applesoft car elle comporte de 
nombreux calculs. Il faut en effet, 
à partir de la densité par carré 
mosaïque. en déduire les deux 
couleurs que le caractère Minitel 
prendra. 


Un caractère peut en effet prendre 
deux couleurs : une pour le 
caractère lui-même, l'autre pour le 
fond. Pour des mosaïques, cela 
signifie que certains des six carrés 
du caractère auront l'une ou 
l'autre couleur. 


C'est là que le problème majeur 
intervient : comment calculer ces 
deux couleurs parmi les huit 
disponibles pour que l'image 
reste cohérente d'un caractère à 
l'autre ? 

La solution passe par un calcul 
d'écart-type des six carrés d'un 
caractère : 


On calcule aussi la densité 
moyenne MC de chaque carré de 
l'image par la division du nombre 
de points d'un carré sur leur 
nombre maximum (7 x 9). 





deux couleurs du caractère: 
la lère: MC-ET/2 
la 2ème : MC+ET/2 


Enfin, pour savoir si un carré 
prendra l'une ou l'autre couleur, 
on compare la densité moyenne 
du carré MC à la densité moyenne 
de l'image entière M. 


La couleur est donnée par les 
séquences suivantes : 

$1B $4x : couleur du caractère, 
$1B $5x : couleur du fond. 

x prend les valeurs 

: noir 

: rouge 

: vert 

: jaune 

: bleu 

: magenta 

: cyan 

: blanc 

En tons de gris, nous avons du 
plus clair au plus foncé : 7 3625 
140. 


IAUu BR & D mm ©Q 


Dernier raffinement, il est 
possible de changer le contraste 
normal de l'image (1), pour 
obtenir des effets spéciaux. 
Entrez donc 10 ou 30... 

On remarque avec l'habitude que 
certaines images passent mal en 
niveaux de gris. On peut alors les 
passer en monochrome noir et 
blanc, ce qui les avantage 
généralement. 


Comment faire ? 


Trois éléments sont nécessaires : 
un Minitel, 

un câble de liaison à l'ordinateur, 
un port série. 


Le Minitel 

S'il est retournable (bi-standard) 
vos œuvres pourront être 
transmises à un correspondant 
équipé également d'un Minitel. 


Le câble 

La revue en tient à votre 
disposition si vous n'en disposez 
pas. 


Le port série 
Sur un //c ou un IIGS, il est 
intégré à la machine. Sur un J[+ 


ou un //e, la carte SuperSérie 


Apple doit être insérée dans le slot 
2 (si elle est dans un autre slot, 
modifiez la ligne 1100 du 
programme Basic), configurée de 
la façon suivante : 


Sw 


modem 


terminal 
sw2 
n 


Sur votre IIGS, à l'aide du tableau 
de bord, mettre toutes les options 
par défaut du port modem, sauf : 
Data/Stop Bits : 7/1 
Parity : Even 
DCD Handshake : No 
DSR/DTR Handshake : No 


Sur votre //c, supprimer le 
REM de la ligne 4. 


Le programme 


Pour utiliser ce programme de 
conversion il faut, si vous ne 
disposez pas de la disquette 
d'accompagnement, saisir et 
sauvegarder les programmes 


Basic HGR.MNTL et 
COMPACTEUR ainsi que la 
routine binaire DENSITE. 

Après l'ordre : 


RUN HGR.MNTL 


le menu vous propose la 
conversion d'une image HGR qui 
consiste en sa transformation en 
un fichier TEXT à envoyer au 
Minitel. Dans cette option, après 
affichage du catalogue, indiquez 
le nom de votre image HGR 
(veillez à ce que son nom 
n'excède pas 8 caractères, éven- 
tuellement renommez-la avant). 
Après transformation, un fichier 
TEXT a été créé sur disque : 


nom de l'image.MNTL 
Ce fichier peut déjà être transmis 
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au Minitel à l'aide de l'option 
récupération. 


Le fichier qui est composé de 
4206 caractères peut être réduit à 
l'aide du programme COMPAC- 
TEUR qui a pour objet la 
suppression de codes de 
changement de couleurs inutiles : 
à n'exécuter que lorsque l'image 
transformée a le contraste voulu. 


Remarques 
Si votre image HGR s'appelle : 


Programme HGR.MNTL 


Pour l'Apple I{0, voir article. 


Pour en faciliter le comptage, certains espaces ont été 


remplacés par des ‘puces’ * 


Pour l'Apple /{c, supprimer le REM de la ligne 4. 


0 REM 


LADY par exemple, 
le fichier de texte créé par 
Hgr.Mhntl s'appelle : 
LADY.MNTL 
et, après compactage par le 
programme Compacteur : 
LADYC.MNTL 


Pour envoyer votre belle image à 
votre Minitel depuis un 
programme Basic, s'inspirer des 
lignes 63002 à 63120 du 
programme Hgr.Mntl. 


l'envoyer à un 
correspondant qui possède un 
Minitel, s'inspirer du programme 
ENVOIIM. Le seul travail dudit 
correspondant sera de connecter 
son Minitel lorsqu'il entendra la 
porteuse. 


Pour 


Hgr.Mntl fonctionne aussi bien 
sous ProDOS que sous DOS 3.3. 
La routine en Assembleur a été 
écrite avec Merlin-Pro. 


mage HGRec000e00000e+0000..000e00.0 
vosesosesseseoseceseeeccsee{R)éCcupérer 


une image Minitel... 


cssococecorececcsesvocverenrcesset{O}uitt 


er vers l'Applesoft 


10025 PRINT "esesseseesee (S)ortir vers u 


10033 IF R$ 


Programme de transformation D 


d'une image HGR en mosaique 


Minitel 


4 REM PRINT CHR$(4)"PR£2" : 
(1) "1D'"CHRS (1) "3P"CHRS (1) "8B 


5 PRINT CHR$ (4)'"PR£3 
6 PRINT 
LOL CTEXT.(: 


HOME : INVERSE : 


NORMAL 
20 POKE 34,2 
30 VTAB 5 


40 POKE 768,104: POKE 769,168: POKE 770, 
104: POKE 771,166: POKE 772,223: POKE 
773,154: POKE 774,72: POKE 775,152: PO 


KE 776,72: POKE 777,96 
1000 HIMEM: 38400 
1005 ONERR GOTO 63200 
1010 
LOTS 
1020 


POKE 216,0 
LOMEM: 21760: REM 


1030 HIMEM: 36864: REM 


1040 RESTORE 
8: READ R$: NEXT I 


1050 FOR I = 1 TO 16: READ ER$S:ERS(I) = 


ER$: NEXT I 
1100 SL = 2 
10000 REM 
Choix des différentes 
options de transfert 
10010 VTAB 5 


10020 PRINT "Voulez-vous (T)raiter une i 
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PRINT" 
ramme de conversion d'une image HGR en 
Minitel / Patrice Neveu (87) LE 


PRINT CHRS$S (4) "BLOADDENSITE 


Pour protéger 1 
a page 1 Haute Résolution 

et la routine d 
es variables et fichiers. 
: DIM ERS (17): 


10036 IF RS 
BYE" 
10040 IF R$ 
10043 ONERR 
10045 PRINT 
10050 INPUT 
aiter 207 
10060 HGR 
2000 


PRINT CHRS$S 


Prog 


n redémarrage ProDOS ";: 
10030 PRINT R$: IF R$ = "R" THEN 63000 
= "O" THEN TEXT : 


SAN 


GET R$ 


HOME : EN 


= "S" THEN PRINT CHRS (4)" 


"T" THEN 10010 
GOTO 63300 


CHRS$ (4) "CATALOG": PRINT 


"Quelle image voulez-vous tr 
TS 
: PRINT CHRS (4)"BLOAD"IS",AS 





Programme ENVOIIM 


100 ESCS = 


PORC ELETO 


CHR$ (27) :PRO1S = ESCS + CHRS 
(57) :DECS$S = 


CHR$ (103):CNEXS = 





CHRS 
1):D$ = CHR$ . 





10070 
10080 


| 10090 
40000 
ec 
40010 
40020 
40030 
| 40040 
40050 
40060 
40070 
) 
40080 
40090 
40100 
50000 
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Muse 
LAC 


N MN% = l: 


TEXT 

PRINT "Voulez-vous de la couleur ? 
GET R$: PRINT RS$: IF R$ = "N" THE 

GOTO 40000 

INPUT "Quel contraste ? ";CO% 

REM lère phase en Langage-Machine 


prépare la 2ème en Basic 


PRINT CHRS (4)'"STORE DATA.MNTL 
CLEAR 

CALL 38144 

CLEAR 

PRINT CHRS$S (4)"RESTORE DATA.MNTL 
T = PEEK (24) + PEEK (25) * 256 

PRINT T / 5120:M% = INT (T / 5120 


PRINT CHR$ (4)"PR£"SL 

PRINT CHR$ (12): PRINT CHR$ (14) 
DIM DT# (840,2) 

REM 


Phase Applesoft de déter- 
mination de couleurs et 


points 

50010 FOR Y = 0 TO 62 STEP 3: FOR X = 0 
TO 79 STEP 2 

50020 AD$ = 16384 + X 

50030 C$(1) = PEEK (AD$ + Y * 80):C%(2) 

| = PEEK (AD$% + 1 + Y * 80):C$%(3) = PE 

EK (AD$% + (Y + 1) * 80):C$%(4) = PEEK 

(AD$ + 1 + (Y + 1) * 80):C$#(5) = PEEK 

(AD$ + (Y + 2) * 80):C$%(6) = PEEK (A 
DÉTENTE) EN 0) 

50040 IF MN$ THEN CF% = 7:CL% = 0: GOTO 
50130 

2005005 = CS (1) FICE (2). F'CT (SIC AIN 

C&(5) + C$(6) 

SOD6O ET =, (CS (LIN RASE (2) 2 ICT (ES 
JORMENCS IMAC (SAT ANPECT (0) 
LL) ANR/ TE) ETES 

50070 ET = ET * CO$ 

50080 CL8 = S / 6 - ET / 2:CF$ = S / 6 + 
ET /2 

| 50090 IF CL$# > 7 THEN CL$ = 7: GOTO 5011 
0 

50100 IF CL$ < 0 THEN CL$ = 0 

50110 IF CF$ > 7 THEN CF$ = 7: GOTO 5013 
0 

50120 IF CF$ < O0 THEN CF#% = 0 

50L300CE m5 2 0 (CE(L} > NS) LH eRAMICS (2) 

> M$) + 4 * (C$(3) > M$) + 8 * (C$(4) 
DAME) LÉ A (CE (5) 2 0MF) ANGALAN(CE 
6) > M) 

50140 RESTORE : FOR I = 0 TO CF$%: READ F 
%: NEXT I:CF$ = F% 

50150 RESTORE : FOR I = 0 TO CL$: READ L 
3: NEXT I:CL$ = L® 

50160 PRINT CHR$ (27) + CHR$ (64 + CF 
) + CHERS (27) +: CHR$' (80, + CL#) 7 CHR 
$ (C3); 

50170 DT3(0%,0) = CF#:DT#(08%,1) = CL$:DT& 


(05,2) = C8:0% = O$ + 1 
50180 NEXT X,Y 
50190 PRINT CHRS$S (15) 
50200 PRINT CHR$S (4)'"PR£3 
50210" DATA 0,4,1,5,2,6;3,7 
62000 REM 
Sauvergarde de la mosaique 
sur Disque 
62010 NORMAL : TEXT : HOME 
62020 PRINT "Voulez-vous sauver cette im 
age Minitel sur disque ? ";: GET R$ 
62030 IF R$ = "N'" THEN RUN 
62040 IF R$ < > "O" THEN 62010 
62050 PRINT CHRS$S (4)'"OPEN"IS".MNTL 
62060 PRINT CHR$ (4) "WRITE"IS$".MNTL 
62070 PRINT CHR$ (12): PRINT CHR$ (14) 
62080 FOR I = 0 TO O% - 1 
62090 PRINT CHR$ (27) + CHRS$ (64 + DT% 
(I,0)) + CHRS (27) + CHR$S (80 + DTS( 
I,1)) + CHR$S (DT#(I,2)); 
62100 NEXT I 
62110 PRINT CHR$ (15) 
62120 PRINT CHRS$ (4)"CLOSE 
62130 RUN 
63000 REM 
Affichage d'une mosaique 
sauvée sur Disque 
63002 ONERR GOTO 63300 
63004 PRINT CHRS$ (4)"CATALOG 
63010 INPUT "Quelle image voulez-vous ré 
cupérer ? ";IS$S 
63020 PRINT CHRS$S (4) "UNLOCK"IS$S".MNTL 
63040 PRINT CHRS$ (4)"PR£"SL 
63050 PRINT CHRS$ (4)"OPEN"I$".MNTL 
63060 PRINT CHR$S (4)"READ"IS$S".MNTL 
63070 ONERR GOTO 63090 
63080 GET RS$: PRINT R$;: GOTO 63080 
63090 PRINT CHRS$ (4)"CLOSE 
63100 NORMAL 
63110 PRINT CHR$ (4)"PR£3 
63120 POKE 216,0 
63130 RUN 
63200 REM 
Erreur, il n'y a plus le 
disque d'origine 
63210 HOME : PRINT : PRINT "Vous devriez 
remettre le disque de Conversion": PR 
INT 
63220 GET RS$ 
63230 POKE 216,0 
63240 RUN 
63300 REM 
Erreur de disque, on 
recommence l'opération 
63302 POKE 216,0 


Ke 6 
ProDOS 


63303 TEXT 

63305 CALL 768 

63310 ER = PEEK (222): HOME : TEXT 

63320 RL = PEEK (218) + PEEK (219) * 25 
6 
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63360 "ER$S(ER)" ligne "RL 
63370 
63390 RUN 

63399 REM 

Données contenant les mes- 
sages d'erreur du DOS plus 
un pour l'Applesoft. 

63400 DATA "Langage non disponible", "P 
aramêtre hors limite","Rien n'est conn 
ecté" ,"Disquette protégée a l'écritu 
re","Fin des données","Fichier introuv 
able","Erreur de paramètre", "Erreur d' 
Entrée - Sortie","Disque plein" 

63405 DATA "Fichier verrouillé" 

63410 DATA "Pas de mémoire tampon dispo 
nible","Erreur quant au type de fichie 
r","Programme trop important", "Cette c 
ommande ne peut etre passée en mode di 
rect" 

63420 DATA "Erreur de syntaxe", "Erreur 

dans l'Applesoft" 


PRINT "("ER") 
GET R$ 





Programme 
COMPACTEUR 


5 HOME 

10 D$ = CHRS$S (4): DIM CAR(4205),ST(4),C( 
4) :ES$S = CHR$ (27):ES = 27 

20 INPUT "Fichier à compacter ? ";F$:F1$ 
= F$ + "C" + ".MNTL":F$ = F$ + ".MNTL 


Raccourcir WPL 



























O?F*, #=5C, * 
O?PF*,*=$B, *. 
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Pour comprimer un programme WPL trop long (la limite se 
situe à 2048 caractères), toutes les commandes qui 
s’exécutent sans “return” peuvent être accollées. 

Le programme STARTUP.N de la page 10 pourrait ainsi 


29 PRINT "Chargement du fichier "F$ 

30 PRINT D$"OPEN"F$: PRINT D$"READ'"F$: F 
OR I = 0 TO 4205: GET CARS$S:CAR(I) = AÀ 
SC (CARS): NEXT : PRINT D$"CLOSE 

80 PRINT "Compactage en cours 

90 PRINT DS$S"OPEN"F1S$: PRINT DS"WRITE"F1$ 


100 PTR = -1 

110 PTR = PTR + l: IF PTR > 4205 THEN 400 

120 C(1) = CAR(PTR): IF C(1) < > ES THEN 

PRINT CHR$ (C(1));: GOTO 110 

130 PTR = PTR + 1 

140 C(2) = CAR(PTR): IF C(2) < 64 OR C(2) 
> 71 THEN PRINT ESS$ CHR$ (C(2));: GO 
TO 110 

150 PTR = PTR + 1 

160 C(3) = CAR(PTR): IF C(3) < > ES THEN 


PRINT ES$ CHR$ (C(2)) CHR$ (C(3));: 

GOTO 110 

170 PTR = PTR + 1 

180 C(4) = CAR(PTR): IF C(4) < 80 OR C(4) 
> 87 THEN PRINT ESS CHRS (C(2))ES$ C 
HRS$ (C(4));: GOTO 110 

190 OK =Y#1ruF OR) =: INTONZ: 
C(I) THEN OK = 0 

200 NEXT : IF OK THEN GOSUB 1000: 
110 

2LOUNFOR. I = 1 TO 45: PRINT ICHRS AC (T)))": 


TEUS TUTO 


GOTO 


NEXT : GOSUB 1000: GOTO 110 

400 PRINT D$"CLOSE": PRINT "Fichier "F1$ 
" créé": PRINT "Terminé.": END 

TO0OM EOR L'=\ TITO 45 ST{T) = C(T): NEXT 


RETURN 


Récapitulation DENSITE 


Après avoir saisi cette récapitulation 
sous moniteur, vous la sauvegarderez par : 


BSAVE DENSITE, A$9500, L181 


9500:A9 40 8D 5A 95 A9 00 85 
9508:07 85 06 8D 59 95 85 18 
9510:85 19 A9 00 85 09 A9 03 
9518:8D B4 95 A5 07 A2 00 A0 
9520:00 20 11 F4 A5 06 4A A8 
9528:B1 26 90 08 4A 4A 4A 29 
9530:0F 4C 36 95 29 07 A8 B9 
9538:A4 95 18 65 09 85 09 E6 
9540:07 CE B4 95 DO D5 A5 06 
9548:4A BO 08 A4 09 B9 8D 95 
9550:4C 58 95 A4 09 B9 97 95 
9558:8D 00 40 EE 59 95 DO 03 
9560:EE 5A 95 A5 09 18 65 18 
9568:85 18 90 02 E6 19 A4 07 
9570:88 88 88 84 07 E6 06 A5 
9578:06 C9 50 90 95 A9 00 85 
9580:06 A4 07 C8 C8 C8 84 07 
9588:C0 BF 90 86 60 00 01 01 
9590:02 03 04 05 06 06 07 00 
9598:01 01 02 02 03 04 04 05 
95A0:05 06 06 07 00 01 01 02 
95A8:01 02 02 03 O1 02 02 03 
35B0:02 03 03 04 00 













| 
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Source DENSITE.S 


Assembleur Merlin-Pro 


HARRHRRERAAÉARÉAÉRRRÉRÉRARÉRAÉAÉÉRÉARÉAÉARRRRRRÉÉRAR 


IST 
ORG 


OFF 
$9500 





* Objet général: 


#* 


* Stockage de la concentration des points 


* 


* 

* 

* 

* d'un sixième de caractère en mémoire. * 
* 

* 


RARARAARAAÉRAAARARRRRRAÉRRÉRÉARARRRRRRRRRRÉARE 


ARRRRARRARÉAAAARARÉRRRÉRRRARARRÉÉÉRRÉRRRRRRRE 


* Lot de points fait 3x3 points (pair) # 


* 


* 


3x4 (impair) * 


* 


* Donc 21 lignes Minitel seront utilisées * 
HARRÉRÉRRARÉÉRRÉRARÉÉRRRRRRAÉRÉÉRÉRÉÉARRRÉRRARÉÉARÉÉ 


* Labels 


XCOORD 
YCOORD 
NBRPTS 
PTSTOT 
HBAS 
HIMEM 


HPOSN 


* Boucle 


CALCLOTS 


LITOCTET 


ll 


$06 ; Coordonnées du lot à étudier, 0-79 

$07 ; Coordonnées du lot à étudier, 0-191 

509 ; Nombre de points dans le lot 

$18 

$26 ; Adresse sortie de HPOSN 

573 ; Protection du programme face aux variables 
$F411 ; Trouve l'adresse d'un groupe de points 


des lignes et des colonnes HGR 


£$40 ; Les densités de points seront mises 
STOCKDENS+2; à partir de $4000 


£0 

YCOORD ; On commence en haut à gauche de l'image 
XCOORD 

STOCKDENS+1 

PTSTOT ; Mise à zéro du nombre de points constituant 
PTSTOT+1  ; l'image et utilisé dans la moyenne générale. 


calcul de concentration d'un lot de points 


£0 ; Mise à zéro du nombre de points d'un lot. 
NBRPTS 

£3 

NBRLGNS ; Nombre de lignes dans le lot 

YCOORD ; Onvase positionner au début de la ligne 
£0 ; dont le numéro est dans YCOORD. 

£0 

HPOSN : Va chercher son adresse 

XCOORD 


; Colonne /2= numéro d'octet 


(4BAS),Y _; Prendl'octet sur la bonne ligne 
PTSG : Pour savoir si on est dans la colonne de 
; gauche ou de droite d'un caractère Minitel. 
; Dans k cas de la partie gauche, décale à 
; droite les 4 bits intéressants. 
£$00001111 ; Etonksisole 


PTSG 
ADDPTS 


* Il Y a 


ZDA 
LSR 
BCS 


PTS12 


INC 


STOCKED 


NOC 





ADDPTS 


£$00000111 ; 
NBRPRVAL, Y ; 
NBRPTS ; 
NBRPTS 

YCOORD ; 
NBRLGNS ; 
LITOCTET 2 


XCOORD ‘ 
é 
PTS12 A 
NBRPTS ’ 
COULEUR, Y ; 
STOCKDENS 
NBRPTS ; 


COULEUR2, Y ; 


$4000 î 
STOCKDENS +1; 
STOCKED 
STOCKDENS+2 


NBRPTS ; 


PTSTOT 
PTSTOT 
NOC 
PTSTOT+1 


YCOORD ; 


Ln 


on 


YCOORD 2 


XCOORD 
XCOORD 


£80 r 


CALCLOTS 
£0 î 


XCOORD 
YCOORD 


YCOORD 


£191 $ 


CALCLOTS 


* Tables diverses 


an 


% 





On isole les 3 points intéressants de droite 


: Transforme la valeur en index 


Prend le nombre de bits selon la valeur 
Adlditionne ça au nombre de points du lot 
Passe à la prochaine ligne HGR 


Ça fait une ligne de moins à faire 
sur les 3 que compte 1/6 de caractère MNTL 


huit concentrations possibles 


À nouveau il faut faire la distinction 


- entre la partie gauche et la partie droite 


de l'octei considéré. 

Dans un cas on prend une table contenant 
10 concentrations possibles (0 à 9) 

Dans l'autre cas on a 13 possibilités 

(0 à 12) 


On sauve le nombre de points dans une table 
Puis on passe à la prochaine position... 


Pour avoir le nombre total de points 


+ constituant l'image, on rajoute ceux-là... 


On fait cela car à chaque 1/6 ème de 


; caractère, le n° de ligne augmente de 3 


Or, on ne doit passer aux 3 lignes HGR 
suivantes qu'en bout de ligne, c'est à 
dire. 


Lorsque XCOORD est à 80. (40x2) 


Alors seulement or peut sauter les 3 lignes 
que l'on vient de traiter et revenir en 
début de ligne. 


La ligne HGR n°191 est la dernière 


Après laquelle on passe à la phase n°2 


* On peut changer ces deux premières tables qui indiquent 
* que pour un nombre X de points dans le 1/6 de caractère 
* on à le niveau de gris ÿ. 


COULEUR HEX 
COULEUR2 HEX 


00010102030405060607 
00010102020304040505060607 


* Cette table indique que pour la valeur X, Y bits sont à 1 


NBRPRVAL HEX 


NBRLGNS HEX 


00010102010202030102020302030304 


00 
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LE Pham Hiep 


oici un petit 
j programme qui 
vous permet d'uti- 
liser les fonctions 
graphiques Super 
haute résolution 
de l'Apple IIGS. 

montrera les 
base pour 


Il vous 
principes de 
exploiter les possibilités 
des “outils” à partir du 
Basic Applesoft. 


Les possibilités 
graphiques du IIGS 


L'Apple IIGS, grâce à sa ROM de 
128K0, présente de nombreuses 
possibilités qui ne sont pas 
exploitables directement depuis 
l'Applesoft. Dans cet article, nous 
nous intéressons surtout aux 
outils graphiques. 


L'Apple IIGS est doté, en plus 

des traditionnels modes graphi- 

ques de l'Apple //, du mode 

Super-Hi-Res. Ce dernier est géré 

par QuickDraw II, il vous donne 

la possibilité de contrôler les 

résolutions suivantes : 

+ _320x200 ou 

+ _640x200 en 16 ou 4 couleurs 
(en standard) parmi une palette 
de 4096. 

QuickDraw II sait gérer les 

fonctions de base telles : 

* les lignes, 

+ les rectangles, 

+ letexte, 

mais également les manipulations 

de l'environnement graphique 

comme : 

* la gestion des coordonnées, 

° la gestion des régions 
visibles 
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Possibilités de 
mise en œuvre 


Pour utiliser les outils du GS, 
vous disposez de plusieurs 
moyens : 


- un langage évolué comme 
Pascal ou C, 

- l'assembleur sous moniteur 
(qui fonctionne fort bien) ou 
APW (Apple Programmer 
Workshop). 


Ici, nous allons utiliser 
l'assembleur pour définir une 
interface permettant au Basic 
d'accéder aux fonctions 
graphiques. Il faut savoir 
également que les outils ne sont 
pas indépendants. Dans le cas qui 
nous intéresse, pour faire 
fonctionner Quickdraw II, il faut 
également installer Locator, 
Memory (qui sont nécessaires 
pour le fonctionnement du 
système). Mais heureusement le 
Basic.system s'installe déjà avec 
ces derniers. 


Le fonctionnement de certains des 
outils du système nécessite 
parfois quelques espaces 
mémoires réservées, dans le cas 
de QuickDraw II v1.1, il s'agit de 
3 pages de 256 octets dans le 
premier bank de mémoire (bank 
00). 

Les appels aux fonctions des 
outils doivent se faire en mode 
natif pur (c'est-à-dire les 
drapeaux du registre d'état du 
65816 sont : e=0, m=0, x=0). 
Maintenant 


nous pouvons 


commencer à écrire notre petit 
programme qui permet : 

1) l'installation de QuickDraw I ; 
2) sa désactivation, nécessaire 


pour libérer les mémoires et 
assurer la cohérence du 
système ; 

3) l'appel de certaines fonctions 
graphiques. 


Appels des 
fonctions des outils 


Les appels des fonctions se font à 
partir du point d'entrée $E10000 
(adresse 0 du banc de mémoire 
$E1) de la façon suivante : 
- mettre dans X le numéro de la 

fonction souhaitée puis, 
- faire JSL $E10000. 
Souvent, les paramètres sont 
passés par la pile ; par exemple, 
pour positionner le curseur, nous 
empilons sa position horizontale, 
sa position verticale, puis nous 
faisons : 

LDX £$.. 

JSL $E10000 
En assembleur (APW) il existe 
une bibliothèque de macros qui 
permet de faire des appels de 
fonctions des outils par leur nom : 


_MoveTo, MMStartup, ... 


Description du 
programme 


Vous trouverez ici le programme 
source écrit sous APW avec les 
directives nécessaires pour son 
assemblage. 


Quelques explications concemant 
deux macros usuelles : 
pushword... empile un mot 
(c'est-à-dire 16bits). Son 
équivalent : LDA. PHA 
pushlong...empile un mot 

long (32bits). Il est 
équivalent à deux push word 
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Toutes les macros commençant 

par le souligné “_” sont des 

appels à des fonctions des outils, 

en général, leur équivalent est : 
LDX £$. ; n° de fonction 
JSL $E10000 


Le programme 
binaire 


Le programme en assembleur se 
logera en $800. Les programmes 
Basic de ce fait commenceront en 
$1000. 

De $800 à $AFF : espace réservé 
pour initialiser Quickdraw. 

À partir de $B00 : les points 
d'entrées des fonctions gra- 
phiques : ils vous facilitent les 
appels. À la suite de ces points 
d'entrées nous laisserons la place 
pour passer des paramètres. 


Ici, nous avons adopté le passage 
des paramètres par des Pokes et 
les appels par des Calls pour 2 
raisons : 

-__ pour ceux qui voulaient utiliser 
QD.BIN en assembleur, la 
manière de les appeler reste 
identique ; 

- ilse peut que vous ne vouliez 
pas changer toutes les valeurs 
d'une fonction (exemple : vous 
voulez faire un trait horizontal, 
il suffit de ne changer que le 
paramètre H). 


Le programme de démonstration 
QD.SAMPLE devrait éclairer les 
choses. 


Concernant les listings 


QD.SAMPLE : programme en 
Applesoft qui donne un 
exemple d'utilisation. 


Pour ceux qui possèdent APW il 
faut taper : 

- MAIN : programme (en EXE) 
- QD.SRC : source en assem- 
bleur APW (en ASM65816) 
puis lancer MAIN ; vous 
obtiendrez QD.BIN l'interface 

binaire nécessaire. 


Pour ceux qui ne possèdent pas 
de APW vous devez tapez 
directement la récapitulation. 


Comment utiliser 
QD.BASIC ? 


Vous êtes arrivés au 
Basic.System en ayant booté sur 
ProDOS 16 puis MouseDesk ou 
Sélecteur, et sur votre disque 
vous avez QD.BIN. Pour 
disposer des fonctions 
graphiques, vous devrez vous 
inspirer du programme de 
démonstration QD.SAMPLE. 


Pour charger QD.BIN et lui 

réserver la place, les lignes 9 à 20 

relogent le Basic : 

ligne 9 : est-on relogé ? 

ligne 10 : fixe la nouvelle adresse 
de chargement du programme 
Basic. 

ligne 15 : charge QD.BIN. 

ligne 20 : recharge le programme 
Basic, mais à la bonne 
adresse. 


Il vous faut alors définir une 
variable, QD par exemple, valant 
2816 et les fonctions vous sont 
alors accessibles ainsi : 


Initialisation 
CALL QD 


Désactivation 
CALL QD+3 


Positionnement 

AT(H,V) 

- Poker en QD+70 et QD+80 la 
position verticale (de 0 à 200) 

- Poker en Q+68 et QD+69 la 
position horizontale (de 0 à 320), 
poids faible, poids fort 
CALL QD+6 


Impression de chaînes 

PRINT (T$) 

-__ Poker en QD+72 la longueur de la 
chaîne 
Poker la chaîne à partir de 
QD+73 (maximum 127 carac- 
tères) 

- CALL QD+9 


Mode d'impression 
graphique 
SetPenMode (C) 


C vaut de 0 à 3 ou de $8000 à 
$8003. 
Poker C en QD+50 et QD+51 
(faible, fort) 
CALL QD+12 


Les valeurs de C sont les 

suivantes : 

$0 COPY : la source écrase la 
destination 

$1 OR : la source s'ajoute à la 
destination 

$2 XOR : le Ou Exclusif entre la 
source et la destination sera 
affiché 

$3 BIC : on affiche : (NOT 
source) AND destination 

$4 mêmes modes que $0 à $3 

$5 mais s'appliquent à l'affichage 

$6 du texte : seul le corps du 

$7 texte est concerné 


À toutes ces valeurs, si on ajoute 
$8000 à C, la source est inversée 
avant opération logique : si C = 
$8001, (NOT source) OR 
destination sera affiché. 


Couleur du crayon 

SetSolidPenPat (C) 

- Poker 0 en QD+51 

-_ Poker C en QD+50 
CALL QD+18 


Attributs du texte 
SetTextFace (C) 

C=0 normal 

C=1 gras 

C=2 souligné 


Poker 0 en QD+53 
Poker C en QD+52 
CALL QD+21 


Mode d'impression texte 
SetTextMode (C) 


Idem SetPenMode pour le texte. 


Poker C en QD+54/QD+55 
CALL QD+24 


Couleur du texte 
SetForeColor (C) 
Poker 0 en QD+51 
Poker C (de 0 à 15) en QD+50 
CALL QD+27 


Tracé d'une ligne 
LineTo (H,V) 
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-_ Poker coordonnées d'arrivée V 


en QD+70etQD471 Programme QD.SRCE  FichierEXE 
- Poker coordonnées d'arrivée H 


en QD+68 et QD:69 Apw QD.MAIN 


- CALL QD+30 


RHRRRRRÉARARÉARRÉRÉRRÉARARAARRÉRAARAARARÉX 


x QD Basic 
ui par Le Pham Hiep 87 ros .d2/macros/=4 





macgen qd.src qgd.mac 


Inversion d'un rectangle 
InvertRect (V1, H1, V2, H2) asml qd.src 


RRHHRRRARÉRRHRRARRARRRRÉRÉRRARAARARAAÉRXX a d bi “! 
Le rectangle est défini par les + 3 pages de quickäraw $800.safff RE NE 
coordonnées du point haut/gauche  * programme en $b00 ee Co 


et bas/droit RARHRRARARRRAR RAR ARR ARR ÉRAAÉAÉÉÉRÉÉÉAÉÉE À 
. 


- Poker Vt en QD+56 et QD+57 he Îlgs 
-__ Poker Hi en QD+58 et QD+59 au 

-__ Poker V2 en QD+60 et QD+61 en UE 

-__ Poker H2 en QD+62 et QD+63 SYMBOL off 

- CALL QD+33 org  $000b00 


: KEEP QD 
Dessin d'un rectangle 
PaintRect (V1, H1, V2, H2) io 
-_ Poker Vt en QD+56 et QD+57 
-_ Poker Hi en QD+58 et QD+59 QDstart START 





- Poker V2 en QD+60 et QD+61 jmp initqd ; installe Quickdraw 
- Poker H2 en QD+62 et QD+63 jmp qgdoff ; desactive Quickdraw (libère le système) 
- CALL QD+36 jmp At AT (HV) 
jmp Print ; Print (strptr) : de type Pascal 
; jmp SetPenMode ;: SetPenMode(color) :0..3 ou $8000.$8003 
T d' 
racé d'un arc jme Grafoff ; GraffOff 

PaintArc (V1, H1, V2, H2,5, C) jmp SetSolidPenPat ;SetSolidPenPat(color) ‘couleur crayon 
Le rectangle V1/H1/V2/H2 sert à jmp SetTextFace  ;SetTextFace(TextFace) : 0..3,souligne 
définir l'ellipse support de l'arc, S est jmp SetTextMode  ;SetTextMode(TextMode) : 0..3 ou b15=1 
l'angle de départ, C l'angle de tracé. jmp SetForeColor  ;SetForeColor(color) = set texte color 
-_ Poker Vi en QD+56 et QD+57 jmp LineTo ; LineTo{H,V) 
-_ Poker H1i en QD+58 et QD+59 jmp InvertRect ; InvertRect(rectptr) 
- Poker V2 en QD+60 et QD+61 RER Rs ee rl 
-_ Poker H2 en QD+62 et QD+63 jmp PaintArc ; PaintArc(rectpir,startangle, angle) 
-_ Poker S en QD+64 et QD+65 jmp SetBackcolor  ;SetBackColor(color) : couleur du fond 
- Poker C en QD+66 et QD+67 Lier di 
-_ CALL QD+39 MyId dc i'00" ; normalement $3001 
Couleur de fond color dc i'05" ; 00..0f 
SetBackColor (C) TextFace dc i'O01' ; 00..03 
- Poker 0 en QD+51 TextMode de i'00! 700.03 $8000..$8003 
-_ Poker C (de 0 à 15) en QD+50 
- CALL QD+42 rectptr de i'10,10,100,100";V1,H1,V2,H2 
———— StartAngle dc i'00" 

ArcAngle de EPTOE 

H dc i'20' 

ue : dc i'20' 

Bibliographie ï She 
nécessaire 

strptr str ‘hello 0123"  ;chaîne du type Pascal (ascii bas) 
Clefs pour Apple IIGs (PSI) NE U 
Rom tools (Apple) 

é. buffer dc h'EAEAEAEA"' 





Pom's n° 33 19 








nothing anop ;ne rien faire qdstartok  anop se 
rts Jmp emul ; FIN QDinit 
Ran==pese=s==========-—_———* 
emul anop ;revient en mode émulation deja inst  anop 
sep £$30 ps 
ae jmp emul 
R=====2=2==-=-2sRLSESSSSSSESSSSSSSSSSSSSSSSSS—= 
xce 
à :A X 8 bits gdoff anop 
jsr natif 
fa =22222* _Grafoff 
p Dshutdown 
tir ano passage en mode natif _0 
na P pas g jmp emul ; FIN qdoff 
clic 4 
xce ; natif £ TR RME EIRE 
rep £$30 ;AX16 at anop 
rts jsr natif 
=== X* pushword H 
getmyID anop ; récupère le numéro pushword V 
phd ; IDentification affectée par PRODOS16 MoveTo 
pushlong £0 jmp emul ; 
pushlong £$800 mmmmmmmmm==== 
_Findhandle print anop 
tsc jsr natif 
tcd 
ldy £$6 pushlong £strptr 
lda [$01],y _DrawString 
sta >Myid 
pla jmp emul ; fin Print 
pla ===> SSESRSSSSSSSSSSSS 
SetPenMode anop 
pla jsr natif 
rts pushword color 
__SetPenMode 
=== =2222=2222222======——X* 
*** LES FONCTIONS ni jmp emul 
RSS SSSSSSRESSSSSSSSSSSS==S===S= H==Z=RESSSSSSSSSSSSSSSSSSSRDDEEDEDESSSESS 
initqd anop ; GrafOff anop 
jsr natif jsr natif 
pushword £0 GrafOff 
_QDStatus à 
pla jmp emul 
bne deja_inst famm=m 
, SetSolidPenPat anop 
jsr getmyid jsr natif 
ToolsLoaded anop pushword color 
pushlong £0000 _SetSolidPenPat 
pushlong £$e12000 
_FindHandle jmp emul 
_Disposekandle Hmmmmmmmnmm—---HRSSSRSSSSESS 
SetTextFace anop 
jsr natif 
contl anop 
PushWord £$800 pushword Text face 
PushWord £00 ; 320 Set TextFace 
PushWord £160 ; nombre d'octets par ligne & 
PushWord >MyID jmp emul 
_QDStartup PRE 
bcc gdstartok SetTextMode anop 
brk $ff jsr natif 
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pushword textmode 
_Set TextMode 


jmp emul 
esse —— 
SetForeColor anop 

jsr natif 


pushword color 
_SetForeColor 


jmp emul 


LineTo anop 
jsr natif 


pushword H 
pushword V 
_LineTo 


jmp emul 
lez ESESSS=S=======— 
InvertRect anop 

jsr natif 


pushlong £rectptr 
_InvertRect 


jmp emul ; FIN drawrect 





1 sss2e REM mms 2=== 

2 ::::: REM == exemple d'utilisation == 

3 ::::: REM == de QuickDrawlI du GS == 

4 ::::: REM == sous Basic par LPH(87) == 
(avec JV et DDP) 

5 s:::: REM ========2===2================— 


6 REM ** Variables utilisees par les SP : 

7 REM  ** V,H,V1,H1,V2,H2,T$,S,C, QD 

gs 

9 IF PEEK (104) = 16 THEN 50 

10 POKE 103,1: POKE 104,16: POKE 16 * 25 
6,0 

15 PRINT CHR$ (4);"bload qgd.bin": 

20 PRINT CHRS$ (4);"-qd.sample" 

50 DIM TXT$(4):QD = 11 * 256: PRINT CHR 
S (4) MDTES"EUVPRINTL : PRINT : PRINT 

Exemples d'utilisation de Quic 

kdrawII sous le Basic" 


GLUTXTS (LI) N= Copy Er TXTS (2) = COM SET SE 
) = "Xor":TXT$(4) = "Bic" 

60 : GOTO 10000 

100 : 


1000 : CALL QD: REM InitQuickdraw 


1010 RETURN 

1ULIN: 

1100 : CALL (QD + 3): REM QuickdrawOff 
1110 RETURN 

LEURS 

1200 : REM $$$$ At (H ,V ) 
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PaintRect anop 

jisr natif ProDOS 16 
pushlong £rectptr 
_PaintRect 


PaintArc anop 
jsr natif 


pushlong £rectptr 
pushword StartAngle 
pushword ArcAngle 
_PaintArc 


jmp emul 


SetBackColor anop 
jsr natif 


pushword color 
_SetBackColor 


jmp emul 
hf =ELSELSESESSSSSSS= 


H : de 00 à 320 
V : de 00 à 200 
1210 POKE (QD + 71),V / 256: POKE (QD + 
70),(V - 256 * PEEK (QD + 71)) 
1220 POKE (QD + 69),H / 256: POKE (QD + 
68),(H - 256 * PEEK (QD + 69)) 
1230 CALL (QD + 6): 
1240 RETURN 
1299 : 
1300 : REM $$$$ Print (t$) 
1310 PORE (QD + 72), LEN (TS): 
1320 FOR I = 1 TO LEN (TS) 

1330 POKE (QD + 72 + I), ASC ( MIDS (T$, 
Te Die 
1340 NEXT : 
1350 RETURN 

1399 : 

1400 : REM $$$$ SetPenMode (C) 

00..03 S$8000..$8003 

1410 POKE (QD + 51),0 

1420 IF C > 128 THEN POKE (QD + 51),128 
°C= CEA TE 02907 

1430 POKE (QD + 50),C 

1440 CALL (QD + 12) 

1450 RETURN 

1499 : 

1600 : REM $$$$ SetSolidPenPat (C) 

00..15 

1610 POKE (QD + 51),0: POKE (QD + 50),C: 
CALL (QD + 18) 

1620 RETURN 

1699 : 


CALL (QD + 9) 





—————————————————————— 


1700 : REM SS$S$$ SetTextFace (C) 
00..03 suivant la version de QDII 


1710 POKE (QD + 53),C / 256: POKE (QD + 
52),(C - 256 * PEEK (QD + 53)) 

1720 CALL (QD + 21) 

1730 RETURN 

1799: 

1800 : REM $$$$ SetTextMode(C) 

0..3 S8000..$8003 

1810 POKE (QD + 55),C / 256: POKE (QD + 

54) ,(C - 256 * PEEK (QD + 55)) 


1820 CALL (QD + 24) 
1830 RETURN 
1899 : 
1900 : REM $$$$ SetForeColor(C) 
00,15 
1910 : POKE (QD + 51),0: POKE (QD + 50),C 
: CALL (QD + 27) 
1930 RETURN 
1999 : 
2000 : REM $S$$$ LineTo(H, V) 
2010 POKE (QD + 71),V / 256: POKE (QD + 


70), (V - 256 * PEEK (QD + 71)) 

2020 POKE (QD + 69),H / 256: POKE (QD + 
68),(H - 256 * PEEK (QD + 69)) 

2030 CALL (QD + 30) 

2040 RETURN 

2099 : 

2100 REM $$$$ InvertRect (V1, H1, V2, H2) 
2110 POKE (QD + 57),V1 / 256: POKE (QD 
56), (V1 - 256 * PEEK (QD + 57)) 
2120 POKE (QD + 59),H1 / 256: POKE (QD + 
58), (H1 - 256 * PEEK (QD + 59)) 

2130 POKE (QD + 61),V2 / 256: POKE (QD + 
60), (V2 - 256 * PEEK (QD + 61)) 
2140 POKE (QD + 63),H2 / 256: POKE (QD 


+ 


+ 








62), (H2 - 256 * PEEK (QD + 63)) 
2150 CALL (QD + 33) 
2160 RETURN 
2199: : 
2200 REM $$$$ PaintRect (V1,H1, V2, H2) 

2210 POKE (QD + 57),(V1 / 256): POKE (QD 
+ 56), (V1 - 256 * PEEK (QD + 57)) 
2220 POKE (QD + 59),H1 / 256: POKE (QD + 
58), (H1 — 256 *. PEEK. (QD: +, 59)) 

2230 POKE (QD + 61),V2 / 256: POKE (QD + 
60), (V2 - 256 * PEEK (QD + 61)) 

2240 POKE (QD + 63),H2 / 256: POKE (QD + 
62), (H2 - 256 * PEEK (QD + 63)) 

2250 CALL (QD + 36) 

2260 RETURN 

2299 : 

2300 REM $$$$ PaintArc(Vi,H1,V2,H2,S, 

C): rectangle, startangle, angle 

23010 

2310 POKE (QD + 57),(V1 / 256): POKE (QD 
+ 56), (V1 - 256 * PEEK (QD + 57)) 

2320 POKE (QD + 59),H1 / 256: POKE (QD + 
58), (H1 - 256 * PEEK (QD + 59)) 

2330 POKE (QD + 61),V2 / 256: POKE (QD + 
60), (V2 - 256 * PEEK (QD + 61)) 

2340 POKE (QD + 63),H2 / 256: POKE (QD + 
62), (H2 - 256 * PEEK (QD + 63)) 


mm 
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2350 POKE (QD + 65),S / 256: POKE (QD + 
64),S - 256 * PEEK (QD + 65) 

2360 POKE (QD + 67),C / 256: POKE (QD + 
66),C - 256 * PEEK (QD + 67) 


2370 CALL (QD + 39) 
2390 RETURN 
2399 : 
2400 : REM $$$$ SetBackColor(C) 
00:15 
2410 POKE (QD + 51),0: POKE (QD + 50),C: 
2420 CALL (QD + 42) 
2430 RETURN 
2499 : 


5000 REM ++++ Cartouche(Vi,H1l,V2,H2,C 
) bouton type ombre 


5005 S = C:C = 0: GOSUB 1600 

5010 V1 = V1 + 2:H1 = H1 + 2:V2 = V2 + 2: 
H2 = H2 + 3: GOSUB 2200 

5015 C = S: GOSUB 1600 

5020 V1 = V1 - 2:H1 = H1 - 2:V2 = V2 - 2 
H2 = H2 - 3: GOSUB 2200 

5025 C = 15 - S: GOSUB 1600 

5030 V1 = V1 + l1:H1 = H1 + 1:V2 = V2 - l: 
H2 = H2 - l: GOSUB 2200 

5035 V1 = V1 - 1:H1 = H1 - 1:V2 = V2 + l: 
H2 = H2 + 1 

5040 C = S: GOSUB 1600 

5090 RETURN 

5099 : 

5100 : REM ++++ Centertexte(t$) 

5150 H = H1 + (H2 - H1) / 2 - ( LEN (T$) 
#35) 

5160 V = V1 + (V2 - V1) /2 +3 

5170 GOSUB 1200: 

5180 GOSUB 1300 

5190 : RETURN 

5199 : 

9000 

9010 


10000 GOSUB 1100: GOSUB 1000: REM 

#kktkkéktté DEBUT DE L'EXEMPLE #*#*#+####%# 

10010 C = 5: GOSUB 1600 

10020 VI = O:H1 = 0:V2 = 200:H2 = 320: GO 
SUB 2200 

10030 : 

10040 FOR V1 = O0 TO 198 

10050 C = C + 1: GOSUB 1600: IF C = 15 TH 
ENC= -1 

10060 V2 = V1 + 2: GOSUB 2200 

10070 NEXT 

10080 : 

10090 FOR C = 0 TO 3: GOSUB 1400: REM 
chgt PenMode 


10095 V1 = C * 50:V2 = V1 + 50:H2 = 320 

10100 FOR H1 = 319 TO O0 STEP -]1 

10110 C=C +l: GOSUB 1600: IF C = 15 TH 
EN C= -1 

10120 GOSUB 2200:H2 = H2 - 1 

10130 NEXT H1 

10140 H= (C* 70 + 2):V = 25 + V1: GOSUB 

1200 

10150 :T$ = "PenMode " + TXT$S(C + 1): GOS 

UB 1300 
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10160 NEXT C 

10170 : 

102000 FORT = 1 TO 4: 

10210 V1 = 0:H1 O0:V2 = 200:H2 = 3200: G 
OSUB 2100 

10220 NEXT 

10299 : 

10300 C = 0: GOSUB 1400 

10310 FOR V1 O0 TO 85 STEP 5 

10320 C = V1 / 5: GOSUB 1600 

10330 V2 = 200 - V1:H1 V1:H2 = 320 - H1 


: GOSUB 2200 

10340 NEXT VI 

10499; 

10500 C = 10: GOSUB 1600 

10510 C = 2: GOSUB 1400 

10520 FOR S = 0 TO 359 STEP 10 

10530 C = 11: GOSUB 2350 

10540 GOSUB 2370: 

10550 NEXT S: 

10600 S = 0:C = 08: GOSUB 1600:C = 0: GOS 
UB 1400 

10610 FOR C = 0 TO 360 STEP 9 

10620 GOSUB 2350 

10630 NEXT 

10640 FOR I = 1 TO 3:V1 = 0:H1 = /0:V2 = 
200:H2 = 320: GOSUB 2100: NEXT 

10697 : 

10698 : 


10699 REM exemple d'utilisation de 
CARTOUCHE 





10860 NEXT C: 

10870 NEXT FO 

10890 : 

10899 : REM ---- exemple d'utilation 
de Centertexte --- 

10900 :C = 12: GOSUB 1600:V1 = 0:H1 = O:V 
2 = 200:H2 = 320: GOSUB 2200 

10910 V1 = 090:V2 = V1 + 20::H1 = 090:H2 
= H1 + 150:C = 4: GOSUB 5000 

10915 C = 11: GOSUB 2400 

10920 T$ = "Couleur": GOSUB 5100 

10921 : 

10940 FOR CO = 15 TO O0 STEP - 1 

10950 C = CO: GOSUB 1900: GOSUB 5100 

10960 NEXT CO 

11000 

11010 FOR TM = 0 TO 02:REM TextMode 

11015 C = 04: GOSUB 5000:C = 11: GOSUB 24 
00 

11020 C = TM: GOSUB 1700:T$ = "Texte Styl 
e" + STR$S (TM) 


11040 GOSUB 5100 

11050 FORI O0 TO 600: NEXT I 

11090 NEXT TM 

11095 T$ = "LineTo sample": GOSUB 5100 

110990 

11100 :REM ==== 

11110 C = 0:V1 = 0:H1 
20: GOSUB 2300 

11120; 

11125 FOR MODE = 3 TO O0 STEP - 1l: 


LineTo sample 
0:V2 = 200:H2 = 3 





10700 C = 5: GOSUB 1600: DE: GOSUB 1400 
10710 : GOSUB 2200 11130 FOR I = 0 TO 200 STEP 2: 
10711 :T$ = "Cartouche" 11140 V = I:H = 0: GOSUB 1200 
10798 : 11150 C = ABS (15 - I / 13): GOSUB 1600 
10799 FOR FO = 0 TO 15:C = FO: GOSUB 240 11160 V = 0:H = 320 - I * 1.6: GOSUB 2000 
0: 11170 V = 200 - I::H = 320: GOSUB 2000 
10800 FOR C = 0 TO 15 11180 V = 200::H = I * 1.6: GOSUB 2000 
10810 V1 = 2 + C * 12:H1 = 30:V2 = V1 + 1 11185 V = I::H = 0: GOSUB 2000 
2:H2 = H1 + 100: 11190 NEXT I 
10820 : GOSUB 5000: REM --- CARTOUCHE 11192 NEXT MODE 
gauche --- 117990: 
10821 : GOSUB 5100 11194 VI = 090:V2 = V1 + 20::H1 = 090:H2 
10830 NC Cr. 1 = H1 + 150:C = 3: GOSUB 5000 
10840 V1 = 6 + (C - 1) * 12:H1 = 170:V2, = 11195 :T$ = "The End'":C = 12: GOSUB 2400: 
V1 + 12:H2 = H1l + 100: GOSUB 5100 
10850 : GOSUB 5000: REM --- CARTOUCHE 11199 : 
droite --- 19999 : 
10851 : GOSUB 5100: 20000 GET A$: GOSUB 1100 
£ = = 0B20:0C 4C 03 OD 4C 16 OD 4C 0B88:00 00 00 00 00 00 00 00 
Récapitulation 0B28:29 OD 4C 44 OD 4C CF 0B 0B90:00 00 00 00 00 00 00 00 
QD.BIN 0B30:00 00 05 00 01 00 00 00 0B98:00 00 00 00 00 00 00 00 
0B38:0A 00 OA 00 64 00 64 00 0BA0:00 00 00 00 00 00 00 00 
0B40:00 00 OA 00 14 00 14 00 0BA8:00 00 00 00 00 00 00 00 
Après avoir saisi cette récapitulation 0B48:0A 68 65 6C 6C 6F 20 30 0BB0:00 00 00 00 00 00 00 00 
sous moniteur, vous la sauvegarderez par :  0B50:31 32 33 00 00 00 00 00 0BB8:00 00 00 00 00 00 00 00 
BSAVE QD.BIN, A$BOO, L597 0B58:00 00 00 00 00 00 00 00 0BCO:00 00 00 00 00 00 00 00 
0B60:00 00 00 00 00 00 00 00 0BC8:00 00 00 EA EA EA EA 60 
0B00:4C FD OB 4C 50 OC 4C 64 0B68:00 00 00 00 00 00 00 00 0BDO:E2 30 38 FB 60 18 FB C2 
0B08:0C 4C 79 OC 4C 8C OC 4C 0B70:00 00 00 00 00 00 00 00 0BD8:30 60 O0B F4 00 00 F4 00 
0B10:9D OC 4C AA OC 4C BB 0C 0B78:00 00 00 00 00 00 00 00 0BE0:00 F4 00 00 F4 00 08 A2 
0B18:4C CC OC 4C DD OC 4C EE 0B80:00 00 00 00 00 00 00 00 OBE8:02 1A 22 00 00 El 3B 5B 














1 ne s'agit pas d'un 
accessoire de bureau type 
GS mais plus modestement 
d'un programme WPL qui 
permet l'exploitation de la 
carte horloge depuis votre 
traitement de textes préféré. 
Si vous avez une carte Speedisk, 
vous saurez l'heure actuelle, 
sinon vous connaîtrez une heure 
vieille de 3 ou 4 secondes. 


Le mode d'emploi est simple : 
faire : 

<ctrl-P>DO HEURE 

L'heure, sous la forme 10:58 est 


insérée à l'emplacement du 
curseur. Faites à nouveau : 


<ctrl-P>DO HEURE 
l'heure est effacée. 


Seule contrainte : il faut avoir 
dans le catalogue courant un 
sous-catalogue nommé ‘N°? 
réservé au seul usage de la 
récupération de l'heure. Ce 
sous-catalogue contiendra un 
fichier composé de ‘**? 
uniquement. 


Bien sûr, il sera plus confortable 
de mettre l'ordre WPL dans une 
commande glossaire : vous aurez 
l'heure sous la pomme. 








Fichier HEURE 


°PND 
*PCS/$a/*/ 
e PGO* 
*F//**/ 
°0? 

.B 

°F/**/ 

Q#e 

° SN/N, * 
+0 

°UU 

+ OAN£ 

°? 

°D 

°F ISSSS2EL1*X! 
°0? 

HW 

° UUU 
°FIXXNXXI 
*0? 

°D 

HW 

+ PAS*=$A 


CR * PAS=$A 








Stoppe l'affichage. 

Si le pointeur $A est *, 

aller à l'étiquette *. 

Met dans le texte le repère ** 

à la place du curseur. 

Début page texte et direction > ligne de statut. 
Retourne au repère **. 





Sauvegarde, dans le sous-catalogue N, le fichier N 
ne contenant que le repère **, 

2 flèches de droite : passe devant le repère ** 
Charge le catalogue en mémoire texte. 


Change la direction ligne de statut : <. 
Remplace la fin du catalogue jusqu'à l'heure de 
modification par un nouveau repère **. 

Met dans le buffer texte l'heure et un espace. 
Déplace le cureur vers la droite, après le repère **. 
Supprime tout ce qu'il y a entre les repères, 
repères inclus. 

Change la direction ligne de statut : >. 

Remet l'heure et l'espace du buffer dans le texte. 
Initialise le pointeur $A. 

Fin d'un premier appel. 

Second appel : change la direction. 
Supprime l'heure. 

Vide le pointeur $A. 
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Source ONLINE.S 


Assembleur Merlin Pro 


BASIC KBD 


CNTR = $18 
IN = $200 
BUFFER = $200 sUtilisons IN comme buffer 

DO BASIC 
EXTRNCMD = $BE06 ;Vecteur vers commande externe 
ERROUT = $BE09 Traitement d'erreur 
XTRNADDR = $BE50 ;Adresse de la commande externe 
XLEN = $BE52 longueur - 1 de la commande 
XCNUM = $BE53 :N° commande BASIC.SYSTEM (ext.=0) 
PBITS = S$SBE54 ;Drapeaux des paramètres requis 
BADCALL = S$SBE8B ;Convertit erreur MLI -> Basic 
SONLINE = SBEC6 Liste parametres MLI pour ON LINE: 
SUNITNUM = S$BEC7 ; Code de l'unité (00 = toutes) 
SBUFADR = SBEC8 ; Adresse du buffer 

FIN 
MLI = $BFO00 Point d'entrée du MLI ProDOS 
SERR = $BFOF ;Code erreur MLI (00 = ok) 
BITMAP = $BF58 ; Schéma occupation mémoire 
PRBYTE = $FDDA Affiche À en hexa 
COUT = $FDED Affiche le caractère dans À 
RTS = SFF58 :RTS connu en ROM 
On_ Line EQU  $C5 ;Référence de la routine On Line 
RAÉARÉRAARÉRAAÉRAARRRARAAÉAAARAARR ARE 
* 
* Code destiné à e “tre relogé avec CMDLOAD (cf POM'S 20) 
* syntaxe commande: "ONLINE", pas de paramètres 
* Il faut charger CMDLOAD en $2000, ONLINE.CODE en $2100 
* 


et faire CALL 8192 pour installer la commande ProDOS 


# 


ORG $2100 Adresse arbitraire ($2100 pour CMDLOAD) 
DO BASIC 
START CLD ;Convention avec ProDOS 


LDA £>PRGEND+$100 ;Convention avec CMDLOAD 
LDA £>PRGLEN+$100 


V OLDCMD LDA RTS ;Adresse commande précédente 

SEI ;Inhnibe les interruptions 
ONLINCOM LDX £0 ;Verifie qu'il s'agit bien 
CHKCOM  LDA IN, X ;de notre commande 
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ui n'a jamais 
souhaité disposer 
sous ProDOS 
d'une commande 
donnant la liste 
sde tous les 
volumes en ligne, comme le font 
AppleWriter, Merlin-Pro, etc. ? 
Ne serait-ce que pour connaître le 
nom de telle disquette, ou savoir 
si telle autre disquette est bien au 
format ProDOS.….. 


Cette fonction existe au sein du 
noyau ProDOS : elle s'appelle 
ON_LINE. Mais elle n'est 
accessible que via le MLI 
(Machine Language Interface) 
qui, comme son nom l'indique, 
ne peut être appelé que par un 
programme machine. 


La routine ONLINE proposée ici 
affiche la liste de tous les volumes 
en précisant port, lecteur et nom 
d'accès de chacun d'entre eux. De 
plus, si une erreur survient lors 
de la lecture d'un volume, le 
programme affiche à la place du 
nom le code de l'erreur MLI 
spécifique à l'unité ayant 
provoquée l'erreur. Exemple : 

S6,D1: /MERLIN 

S6,D2: $52 

S3,D2: /RAM 


Nous voyons que la disquette (ou 
plutôt le volume) dans le lecteur 
2, port 6 n'est pas un volume 
ProDOS (c'est peut-être une 
disquette DOS 3.3, CP/M...). 
Les erreurs possibles sont les 
suivantes : 


$27 : erreur d'entrée/sortie (1/0 
ERROR)) ; 

$28:pas de périphérique 
connecté (NO DEVICE 
CONNECTED) ; 
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V_ONLINE 


BADCOM 


ORA £$80 ;Convertit en Ascii négatif 

CMP CMDSTR, X 

BNE BADCOM ; Si pas notre commande 

INX 

CPX £6 :6 caractères correspondant ? 

BCC CHKCOM ;Non -> on continue 

CLI ;Autorise à nouveau les interruptions 
DEX 

STX XLEN 


LDA V_ONLINE+1 ;C'est bien "ONLINE"! 

STA XTRNADDR ;alors on donne au BASIC.SYSTEM 
LDA V_ONLINE+2 ;l'ordre de l'exécuter 

STA XTRNADDR+1 


LDA £0 ;Rem: on n'indique pas dans PBITS 
STA SERR qu'aucun paramètre (,S,D,L...) 
STA XCNUM sn'est requis par ONLINE. 

STA PBITS Donc ONLINE, S6,D1 ne provoquera 
STA PBITS+1 spas d'erreur mais seul "ONLINE" 
CLC sera pris en compte 

RTS sRetourne vers le BASIC.SYSTEM 
JUMP ONLINE ;Vecteur vers ONLINE 

SEC ;Si ce n'est pas "ONLINE" 

CLI sRetourne avec C=1 


JMP (V_OLDCMD+1) ;et essaye comm. suivante 


FIN 


* Routine principale: 2 points d'entrées 


* ONLINE: 
* ONLINO: 


liste tous les volumes 
affiche le nom du volume dans l'unité 


* dont le code DSSS50000 est dans À 


*O(DeIOrS 


ONLINE 
ONLINO 


PRMADR 


ONLINZ 


SCANVOL 


ve 0-1, SSS: Slot 0-7) 
LDA £0 sBalaye tous les volumes 
STA SUNITNUM ;A = dsss0000 (d: drv, sss: slot) 


LDX £<BUFFER 

STX SBUFADR 

LDX £>BUFFER 

STX SBUFADR+1 

LDA BITMAP 

AND £$#11011111 ;S'assure que la page 2 (IN) 
STA BITMAP sest marquée comme "libre" 


JSR  MLI Exécute la routine On_Line 
DFB On_Line du MLI ProDOS 
DA SONLINE 


BEQ ONLINZ ;Z=1 si pas d'erreur 

DO BASIC 

JSR BADCALL ;Sinon, affiche le message 
UMP ERROUT d'erreur (ou gère ONERR) 
ELSE 

RTS ;Sort avec Z=0, C=1 et A= erreur 
FIN 

LDX £0 

LDA CNTR 

PHA 

LDA BUFFER, X Saisie le premier octet 
BEQ EOBUF ;:Si 00, alors fin 

PHA 

LDA £$8D Sinon, nouveau volume 


$2E : disques échangés : fichier 
encore ouvert sur un autre 
disque ; 

$45 : impossible de trouver le 
répertoire du volume 
(VOLUME DIRECTORY 
NOT FOUND) ; 

$52:ce n'est pas un disque 
ProDOS (NOT A PRODOS 
DISK) ; 

$57 : nom de volume déjà utilisé 
(DUPLICATE VOLUME). 


ONLINE peut reconnaître jusqu'à 
16 volumes (c'est le maximum 
toléré par ProDOS). La routine 
utilise le buffer clavier 
($200-$2FF) comme espace de 
travail. Aucune adresse page zéro 
n'est modifiée. Enfin, il est 
intéressant de savoir que 
ONLINE prend moins de 256 
octets en mémoire. 


Lorsque ONLINESS est assemblé 
(par MERLIN PRO), le système 
demande de donner une valeur à 
l'étiquette (label) "BASIC" 
("Give value for BASIC:"). Si on 
entre "1", le code objet produit 
sera celui d'une commande 
externe ProDOS nommée 
"ONLINE", installée par 
CMDLOAD (voir la revue Pom’s 
20). Si on répond "0" en 
revanche, le code produit est celui 
d'une simple routine machine 
appelée par CALL, JSR, BRUN, 
etc. 


La commande 
OnLine 


Pour l'installer, il suffit de faire : 


— ONLINE.EXE 

(Ce fichier a été obtenu en faisant : 
BLOAD ONLINE.CODE 

BLOAD CMDLOAD 

BSAVE ONLINE.EXE,A$2000,L512 
ONLINE.CODE est le résultat de 
l'assemblage de ONLINE.S option Basic, 
CMDLOAD est le relogeur d'A. Avrane 
(Pom's 20).) 


La routine sera relogée sous le 
BASIC.SYSTEM et la commande 
sera active et utilisable comme 
n'importe quelle autre commande 
de ProDOS. 


La syntaxe est : 
ONLINE 
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PRNAME 


SETDX 


EOBUF 


VOLERR 


COUT 
ErEr 
COUT 


£$801110000 


£"o® 
COUT 
24,9 
COUT 
ED" 
COUT 
£0 


£rg" 
COUT 
pre 
COUT 
gum 
COUT 


BUFFER, X 


£$0F 


VOLERR 
CNTR 
“2 At 
COUT 
BUFFER, X 
£$80 
COUT 


CNTR 
PRNAME 


£$OF 
CNTR 


CNTR 


SCANVOL 
£$8D 
COUT 
£$8D 
COUT 
CNTR 


£0 





Envoie un retour chariot 
sAffiche "Ss,Dd: "” 


isole le slot 


;Convertit en chiffre ascii 


:Bit7 (drive) ->C 

:Si C=0, alors drive 1 sinon drive 2 
:C -> Bit O0 de À, et bit 7 de A ->>C 
;mais Dit 7 =ei0; donc C'= 0 


sIsole la longueur du nom 
; Si NameLength = 0, erreur 


;Sinon, on peut afficher le nom 


Affiche le nom du volume 


;Calcule l'adresse 
;du nom de volume suivant 
;= adr. courante + (15-long. nom) 


;Toujours pris si moins de 16 volumes 
;On a liste tous les volumes 

;on saute deux lignes 

;On restaure CNTR 

set on sort avec C=1 


:2=1 et À = 0 


Affiche le code de l'erreur 






































Tout ce qui suit (paramètres, S, 
D...) est ignoré par l'interpréteur 
du Basic.System. 


OnLine sans le 
Basic 


Correspond à l'option 
d'assemblage "BASIC = 0" 
(fichier ONLINE.OBJ non listé 
ici). La routine s'exécute à 
l'adresse "adr” indiquée par la 
directive "ORG"' de l'assembleur 
(par défaut ici $2100). 


Un JSR adr (ou CALL adr) 
affiche la liste de tous les volumes 
connectés, alors qu'un JSR adr+3 
sélectionne un lecteur de disque 
particulier : en ce cas, mettre le 
code de l'unité dans 
l'accumulateur sous la forme 
DSSS0000, avec D = numéro du 
lecteur moins un (donc 0 ou 1) et 
SSS = slot (0-7). 





Si vous souhaitez exécuter 
ONLINE à une autre adresse 
‘adr' sans réassembler le source, 
il suffit de mettre en adr+$04, 
adr+$09 et adr+$0E le poids 
FORT de la nouvelle adresse 
d'exécution (cela suppose que la 
routine se trouve en début de 
page, donc à une adresse de la 
forme $xx00, où xx est le poids 


fort de 'adr'). 


InterPom'’s 
version 2.0 é 


Des transmissions 
intelligentes entre : 


\pple//” 





1patib 





Bon de commande page 75 














PHA ; survenue durant là lecture 


LDA A Ed du volume 
= = JSR COUT 
Récapitulation LDA BUFFER,X  ;(code MLI hexa) 
ONLINE.EXE JSR  PRBYTE 
PLA 
AD . ss ” stulati TAX 
D Me Le. 8 coneinue 
BSAVE ONLINE.EXE, A$2000,L512 roi dé ed co 
BRK ;Fin du code à reloger (CMDLOAD) 
2000:AD 00 BF C9 4C FO 05 A9 
2008:87 4C ED FD AD 4D BE FO ÉARHRRRRARR*RÉRRARARÉRRRRRÉRRRARRAÉRRE 
2010:05 A9 15 4C 09 BE AD 04 
2018:21 69 00 20 98 20 90 05 
2020:A9 0E 4C 09 BE CD 02 21 
2028:90 F6 AE 08 BE 8D 08 BE 20 BASIC 
2030:8E 07 21 AE 07 BE 8E 06 CMDSTR ASC "ONLINE" ;Nom de la commande 
2038:21 AO 00 8C 07 BE 48 E9 PRGEND = I 
2040:21 85 3C 68 38 E9 04 85 PRGLEN = PRGEND-START+$100 
2048:74 A9 21 85 49 84 48 A0 ELSE 
2050:00 B1 48 FO 27 20 8 F8 SONLINE DFB 2 ;Si pas de BASIC.SYSTEM 
2058:A4 2F CO 02 DO OF B1 48 SUNITNUM DFB 00 ;alors il faut notre propre 
2060:C9 21 90 09 CD 02 21 B0 SBUFADR DA BUFFER ;ParmList 
2068:04 65 3C 91 48 A5 48 38 FIN 
2070:65 2F 85 48 A5 49 69 00 
2078:85 49 DO D3 AO 00 A9 21 EEE 
2080:84 3C 85 3D 18 6D 04 21 2100:D8 A9 22 A9 02 AD 58 FF 2180:70 4A 4A 4A 4A 18 69 BO 
2088:84 42 88 84 3E 85 3F AD 2108:78 A2 00 BD 00 02 09 80 2188:20 ED FD A9 AC 20 ED FD 
2090:08 BE 85 43 C8 4C 2C FE 2110:DD F7 21 DO 29 E8 EO 06 2190:A9 C4 20 ED FD A0 00 68 
2098:8D FB 20 A5 74 18 69 04 2118:90 F1 58 CA 8E 52 BE AD 2198:0A 98 2A 69 B1 20 ED FD 
20A0:8D FC 20 86 3D CE FC 20 2120:3C 21 8D 50 BE AD 3D 21 21A0:A9 BA 20 ED FD A9 AO 20 
20A8:F0 47 AD FC 20 8D FD 20 2128:8D 51 BE A9 00 8D OF BF 21A8:ED FD BD 00 02 E8 29 OF 
20B0:AD FD 20 48 4A 4A 4A AA 2130:8D 53 BE 8D 54 BE 8D 55 21B0:48 FO 31 85 18 A9 AF 20 
20B8:68 29 07 A8 B9 F3 20 3D 2138:BE 18 60 4C 43 21 38 58 21B8:ED FD BD 00 02 09 80 20 
20C0:58 BF DO El A5 3D DO 039 2140:6C 06 21 A9 00 8D C7 BE 21C0:ED FD E8 C6 18 DO F3 68 
20C8:B9 F3 20 1D 58 BF 9D 58 2148:A2 00 8E C8 BE A2 02 8E 21C8:49 0F 85 18 8A 18 65 18 
20D0:BF AD FC 20 38 CE FD 20 2150:C9 BE AD 58 BF 29 DF 8D 21D0:AA 90 SA A9 8D 20 ED FD 
20D8:ED FD 20 CD FB 20 DO DO 2158:58 BF 20 00 BF C5 C6 BE 21D8:A9 8D 20 ED FD 68 85 18 
20E0:A5 3D DO 07 18 AE FD 20 2160:F0 06 20 8B BE 4C 09 BE 21E0:18 A9 00 60 8A 48 A9 A4 
20E8:E8 8A 60 A9 00 85 3D FO 2168:A2 00 A5 18 48 BD 00 02 21E8:20 ED FD BD 00 02 20 DA 
20F0:B9 38 60 80 40 20 10 08 2170:F0 61 48 A9 8D 20 ED FD 21F0:FD 68 AA 18 90 D1 00 CF 
20F8:04 02 01 00 00 00 AD 99 2178:A9 D3 20 ED FD 68 48 29 21F8:CE CC C9 CE C5 FD BF 4C 










Pourrésoudre tous les problèmes de ce type, il suffit d'inclure au début de la ligne du haut le caractère 
<ctrl-X> qui a justement pour fonction de vider le buffer d'imprimante. Si vous n'utilisez pas cette 
ligne, elle peut toutefois ne contenir que <ctrl-X> ou bien par exemple <ctrl-I>80N<ctrl-X><esc>E 
(configuration de l'interface, vidage du buffer, choix des caractères ELITE”). 








Elle peut aussi contenir une ligne complexe initialisée par un fichier texte tel celui présenté ci-dessous. 


.LH*<ctrll>B0N<X><esc>P<esc>!<esc>Xquartier’rastaux’ RN 120 MOUSSAILLON 74 550 
Caurdes tél : 70.70.70.70 <esc>n<ctrl-N>J.POM' S<esc> q<ctrl-0> société 
nouvelle<esc>E <esc>Y<esc>"* 
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Pascal Duboin 


et utilitaire permet de 
visualiser le catalogue 
d'un disque formaté 

ss“ en DOS 3.3 avec 
quelques avantages par rapport à 
la simple commande utilisée par 
le DOS : 


+ visualisation des fichiers 
effacés ; 

+ visualisation des caractères 
de contrôle ; 

+ visualisation des adresses de 
chargement des fichiers ; 

* tri du catalogue (11 options) ; 

+ défilement de haut en bas et 
bas en haut du catalogue ; 

* utilisation de la souris et de la 
carte 80 colonnes. 





ae 




















Petites annonces 


Vous êtes abonné ? Pom’s 
ouvre gratuitement ses 
colonnes à vos petites an- 
nonces : vente, recherche 
de matériel ou de logiciel, 
contact, club... (Pour les 
ventes de logiciels, joindre 
la photocopie de la facture 
d'achat). 

Les annonces seront 
constituées de 250 carac- 
tères au maximum et 
préciseront obligatoire- 
ment le type de matériel, le 
prix et votre numéro de 
téléphone. 

Elles nous seront 
adressées par courrier ou 
messagerie CalvaCom 
(empl1). 
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—— D —————Z2—_—_—Z—ZEZE ee. 


: «T 021 ARATICLE.PONS 


EEK 081 CATS. SOURCE ,L1SA 
=xT:001 FICHIER.EFFACE 1 
*XT:001 FICHIER EFFACE.2 
-:*A:005 PROG BOOT Ë 





FILES: 007 EFFACES: 000 LIE. 


Configuration 


Le programme requiert : 
° une carte 80 colonnes ; 
° le microprocesseur 65C02. 


Leur présence est détectée 
automatiquement en début de 
programme. En cas de non 
installation, vous êtes invité à 
‘rebooter’ le système sur un autre 
disque par simple appui sur la barre 
d'espacement. L'interface souris n'est 
pas obligatoire, mais le programme 
actionne automatiquement l'animal en 
cas de détection de ladite interface. Le 
cas échéant, il autorise simplement les 
ordres entrés au clavier. 


Utilisation 
Sélections 


Dans le menu principal, on 
sélectionne les options soit en se 
déplaçant à l'aide des flèches et en 
validant par Return, soit en déplaçant 
le curseur par un simple ‘clic’ et en 
validant par un double ‘clic’. 

Pour la sélection du lecteur de disques, 
le principe est le même avec, en plus, 
la possibilité de s'échapper par Escape 
ou par un simple ‘clic’ sur le bouton 
du coin supérieur gauche de la fenêtre. 
Ces deux dernières options se 
retrouvent bien évidemment tout au 
long du programme. 





AT QON = 


— NUMERO: 008 


La suite est aussi classique pour les 
personnes ayant utilisé un Macintosh. 
Dans toutes les options d'affichage du 
catalogue, on peut se déplacer à l'aide 
des flèches du clavier ou celles 
dessinées à l'écran, mais vous avez la 
possibilité de vous déplacer 
rapidement en frappant un chiffre de 0 
à 9, (B} pour Begin, ou encore {E} 

pour End. 


Les utilisateurs de la souris ne seront 
pas lésés pour autant, car le mode 
déplacement rapide leur est accessible 
par simple ‘clic’ sur la bande de 
l'ascenseur. Ce mode de déplacement 
est déconnecté lorsque que l'option 
MOVING est activée. 


Le Tri 


Dans l'option de TRI vous pouvez 
changer le sens (ascendant ou 
descendant) par un ‘clic’ sur le petit 
bandeau, ou en utilisant la barre 
d'espacement. Le choix de la méthode 
de tri est effectué en ‘cliquant’ sur les 
chiffres inversés ou en entrant un 
chiffre au clavier. 


Mise à jour 


Pour réécrire un catalogue trié, il 
suffit de ‘cliquer’ sur le drive 1 qui est 
situé en haut à droite de la fenêtre de 
travail. Les utilisateurs du clavier se 
contenteront de taper W. 








I SO M o e  e = 








FREE EPZ 130 APPLEZ2E = 06 0 
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demandant de confirmer votre action 
soit en cliquant sur OK, soit en 
faisant Return. Pour abandonner, il 
faut cliquer dans tout autre endroit de 
la fenêtre ou bien encore faire Escape. 
Cette procédure fonctionne pour toutes 
les fenêtres, d'alarmes 

En ce qui concerne la méthode de tri 
dite Personnelle, elle vous permet de 
placer vos fichiers dans l'ordre que 
vous aurez choisi. Pour cela, il 


l'aide de l'une des diverses méthodes de 
déplacement énoncées plus haut et de 
cliquer sur le bandeau inversé, ou 
encore de frapper Return, ce qui aura 
pour effet de vous mettre en mode 
déplacement. 


Le mode ‘déplacement’ 


Ce mode sera caractérisé par l'affichage 


Une fenêtre d'alarme s'ouvrira, vous convient de sélectionner un fichier à de moving sur la ligne supérieure de la 


fenêtre de travail. Vous pourrez alors 
positionner votre fichier à 
l'emplacement de votre choix, et l'y 
fixer par un second ‘clic’ sur le 
bandeau ou Return. Pour réécrire le 
catalogue, la procédure est la même 
que dans les autres tris, c'est-à-dire : W 
ou ‘cliquer’ sur drive-: I et confirmer 


par Return ou OK. ä 





Source FILENBE EPZ 128 : STA LGN23, X 
£ 3 DOS EPZ 132 INV - $20 INX 
SOUR CE. LISA FILENUM EP2 133 CURSOR =  $42 INY 
MOVING EPZ 134 SABLE = $43 CPY £40 
NLS DBLCLIC EPZ 135 FG =  $88 BCC <0 
* : FB —  S$S8A PLA 
LL LL LL LS LS LS FAC EPZ 161 FA = $sB STA LGN23+39 
* THE FRENCH DISK. * : RTN = $en 
É———— * ; ARITHMETIQUE APPLE CR -  $en LDA £215 
* CATALOG EDITOR * ; FD $95 JSR WAIT 
r-r SORTING MENU = INTEGER EQU $E10C ESC æ $98 
Te EE MULTI EQU $E982 seC =  $a0 DEC TEMPO+1 
* le 25 Mai 87 * DIVISE EQU $EA69 5 BPL T1 
COPPPPE PELLE L LL LLLZZ ARG EQU $EB63 BUFFER EQU $8000 LDX £28 
+ SIGNE EQU $EB80 ADRTSBL EQU $8100 LDA £SPC 
: VARIABLE EN PAGE ZERO FLOAT  EQU $EB93 ADRSTK EQU $8200 -0 STA LGN10+46, X 
; INT EQU $EC23 LENGHT EQU $9200 DEX 
DRIVE EPZ 2 : START  EQU $9300 BPL <0 
TRACK EPZ 4 ; ROM MONITEUR TSL EQU $9400 
SECTEUR EP2Z 5 : : DEC TEMPO 
DATA EPZ 8 CoL80 EQU $C300 ;  OPCODE 6502C BPL Ti 
CMD EPZ 12 BOOTD EQU $C600 ; BMI TO 
: PRAX EQU $F941 INA — $lA ë 
INDEX EPZ 21 VTAB EQU $FB5B DEA -  $3A BEGIN: 
LEVELI EPZ 22 TEXT EQU $FB2F TRB = fic IDA £BEGIN 
TSENS EPZ 23 BASCALC EQU $FBCI STZ RE à STA RBOOT 
STYLE EPZ 24 HOME EQU $FCS58 PHX — $DA LDA /BEGIN 
PTE EPZ 25 CROUT EQU $FC62 PLX - SFA STA RBOOT+1 
: IDENT  EQU $FC71 ; EOR £$A5 
CHI EPZ 27 WAIT EQU $FCA8 ORG $800 STA RBOOT+2 
cv1 EPZ 28 PRB EQU $FDDA OBJ $800 : 
3 cour EQU $FDF6 ; JSR COL80 
LEFT EPZ 32 INVERSE EQU $FE80 TEST: 
RIGHT EPZ 33 NORMAL  EQU $FE84 JSR HOME LDX £29 
TOP EPZ 34 SCREEN EQU $FE93 JSR SCREEN 0 LDA RATS, X 
DOWN EPZ 35 : STA $0,X 
cA EPZ 36 ; ADRESSES HARDWARE LDA CART80 DEX 
Cv EPZ 37 : BMI TESTERR BPL <0 
d RBOOT  EQU $3F2 LDA IDENT 
BASL EPZ 40 MCH EQU $478 CMP £APPLE2C LDX £7 
STORE EPZ 44 VMODE  EQU $4FB BEQ >0 0 DEC PTR+1 
TEMP EPZ 46 MCV EQU $4r8 CMP £APPLEZE DEX 
TEMP1 EPZ 48 MAXL EQU $4F8 *0 BEQ BEGIN BMI >1 
: MAXH EQU $5F8 =: LDY £12 
PDEC EPZ 68 MINL EQU $478 TESTERR: LDA (PTR),Y 
ICONE EPZ 81 MINH EQU $578 JSR PRINT CMP £32 
MSLOT  EPZ 82 MSTAT  EQU $778 BYT 23,10 BNE <0 
, : ASC "(PRESS SPACE TO LDY £251 
MAXCLIC EPZ 84 LGN10 EQU $528 BOOT) " LDA (PTR),Y 
MINCLIC EPZ 85 LGN12 EQU $628 BRK CMP £$D6 
TEMPO  EPZ 86 LGN22  EQU $750 ; BNE <0 
OPTION EPZ 88 LGN23  EQU $7D0 To JSR PRINT LDA PTR+1 
: : BYT 10,6 STA MOUSE+2 
VOIX1 EPZ 89 KBD EQU $C000 ASC "< CARTE 80 STA MS+2 
VOIx2 EPZ 90 STROBE EQU $C010 COLONNES & 6502c >" EOR £$C0 
LONGEUR EPZ 91 CART80 EQU $CO17 BRK STA MSLOT 
î SPKR EQU $C030 ; BNE MOUSEOK 
DELFLG EPZ 92 : LDA £6 z 
DELSET EPZ 93 ; CONSTANTES STA TEMPO of LDA £$60 
LGNFLG EPZ 94 : LDA £9 STA MSPRT 
HIDFLG  EPZ 95 SET 0 STA TEMPO+1 STA MOUSEPRT 
SETCUR  EPZ 96 SERVE =" 1 ; STA RDCURS 
: READ CT - T1 LDA KBD BNE TTL 
ALPHA EPZ 125 CLEAR 3 BPL T2 ; 
LOCK EPZ 120 POS - 4 JMP BOOT2 MOUSEOK : 
DEL EPZ 121 CLAMP - 5 ; LDX £MINIT 
WRTOK EPZ 124 MHOME _ € T2 LDA LGN23 JSR MOUSE 
à MINIT =. 7 PHA ‘ 
FILEOK EPZ 127 ; LDX £0 LDA £79 
DELETED EPZ 129 APPLE2C = 53 LDY £1 STA MAXL 
LDA LGN23, Y LDA £1 
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INIT: 


*0 


STA MINL 
BYT DEA 
STA MINH 
STA MAXH 
LDX £CLAMP 
JSR MOUSE 


LDA £22 
STA MAXL 
LDA £1 

LDX £CLAMP 
JSR MOUSE 


LDA £1 

LDX £SET 
JSR MOUSE 
LDX £MHOME 
JSR MOUSE 


JSR PRINT 

BYT 0,255 

ASC " <- CATS AND MOUSE 
> , 

ASC 'copyright in june 
1987 by À‘ 

ASC ‘INTERET SOFTWARE & 
DUBOIN.P ‘ 

BRK 


JSR HOM3 

JSR WIND 

BYT 1 

BYT 59,20,3,23 
JSR RSCUR 


BYT STZ, MOVING 
BYT STZ, DBLCLIC 
BYT STZ, ALPHA 
BYT STZ, DEL 
BYT ST£, DELFLG 
BYT ST£,HIDFLG 
BYT ST£, LGNFLG 
LDX £62 

LDA £74 

JSR FIXCLIC 
LDX £255 

STX WRTOK 


JSR PRINT 
BYT 3,60 
ASC " CATALOG EDITOR 


LDX £17 
JSR REVERT+3 


NORMAL gi 
ASC " FILE LENGHT"" 
ASC "FILE DELETED"" 
ASC "HIDDEN TOKEN”" 
ASC "CATALOG SORT" 
ASC " BOOT DISK " 


LDA INDEX 


ADC £7 
LDX £11 
JSR REVERT 


JSR MOUSEPRT 
JSR FUNCTION 


MAINL: 


MAINA: 


MS 


WIND: 


#0 


*0 


co 


ci 


LDX 


CATN 
CATL 
CATD 
CATA 
SORT 
BOOT 


CATN 
CATL 
CATD 
CATH 
SORT 
BOOT 


£2 


$C412,X 
MS+1 
4C95C4 


MOUSEON 


c2 


c3 


C4 


Le 


MSPRT: 


RSCUR 


MOUSEPRT : 


n 


*0 


RDCURS 


NE 
CHGCUR 


MSLOT 
MSTAT, Y 





Récapitulation 
‘CAT & MOUSE" 


Après avoir saisi cette récapitulation 


sous moniteur, 

vous la sauvegarderez par : 
BSAVE CAT & MOUSE, 
A$800, L$1000 


0800:20 58 FC 20 93 FE 
0808:C0 30 O0B AD 71 FC 
0810:r0 02 C9 06 FO 7F 
0818:0C 17 OA A8 DO D2 
0820:D3 A0 D3 DO C1 C3 
0828:D4 CF A0 C2 CF CF 
0830:00 20 91 OC OA 06 
0838:C3 C1 D2 D4 C5 A0 
0840:A0 C3 CF CC CF CE 
0848:D3 A0 A6 AO B6 B5 
0850:E3 A0 BE 00 A9 

0858:A9 09 85 57 AD 00 
0860:03 4C BA 0E AD 

0868:A2 00 A0 01 B9 DO 
0870;:D0 07 E8 C8 CO 28 
0878:68 8D F7 07 A9 D7 
0880:FC C6 57 10 D7 A2 
0888:A0 9D 2E 05 CA 10 
0890:56 10 C9 30 9C A9 
0898:F2 03 A9 08 8D F3 
08A0:A5 8D F4 03 20 00 
08A8:1D BD D3 17 95 00 
08B0:F8 A2 07 C6 lA CA 
08B8:A0 OC B1 19 C9 20 
08C0:A0 FB B1l 19 C9 D6 
08C8:A5 IA 8D 3E OA 8D 
08D0:49 CO 85 52 DO 0D 
08D8:8D 21 0B 8D 30 0B 
08E0:0B DO 33 A2 07 20 
08E8:A9 4F 8D F8 04 A9 
08F0:78 04 3A 8D 78 05 
08F8:05 A2 05 20 3C OA 
03900:8D F8 04 A9 O1 A2 
0908:3C OA A9 01 A2 00 
0910:0A A2 06 20 3C OA 
0918:0C 00 FF 20 3C 2D 


0920:41 54 53 20 41 4E 


0928:4D 4F 55 53 45 20 
0930:20 20 63 6F 70 79 
0938:67 68 74 20 69 6E 
0940:75 6E 65 20 31 39 
0948:20 62 79 20 20 20 
0950:54 45 52 45 54 20 
0958:46 54 57 41 52 45 
0960:20 44 55 42 4F 49 
0968:50 20 00 20 8F OD 
0970:0A 01 3B 14 03 17 
0978:0B 64 86 64 87 64 
0980:79 64 5C 64 5F 64 
0988:3E A9 4A 20 00 OC 
09930:86 7C 9A 20 91 OC 
0998:A0 AO C3 C1 D4 C1 
09A0:C7 AO C5 C4 C9 D4 
03A8:A0 AO 00 A2 11 20 
09B0:20 91 OC 07 3E A0 
09B8:CE CF D2 CD C1 CC 
09C0:A0 DE A0 C6 C9 CC 
O09C8:CC C5 CE C7 C8 D4 
09D0:c9 CC C5 A0 C4 C5 
09D8:D4 C5 C4 DE C8 C9 
09E0:C5 CE A0 D4 CF CB 
03E8:DE C3 C1 D4 C1 CC 
09F0:A0 D3 CF D2 D4 DE 
09F8:CF CF D4 A0 C4 C9 
0A00:A0 A0 00 18 A5 15 
0A08:07 A2 OB 20 45 OC 
0A10:0B 20 72 0B 90 9A 
0A18:E0 05 FO 05 20 05 
0A20:15 


OA 


A0 
A0 
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: 0A28:0A 
MTAB: ; : 0A30:DF D9 44 99 OE CE 0E OE 













| pe D ic STX MINCLIC M. LDA DRIVE nr re 
| rire nn eue mec 0A40:43 OA 4C 95 C4 68 85 19 
| - BYT STS, DALCLIC FRE 0A48:68 85 1A AO 05 B1 19 99 
FUNCTION: RTS RTS 0A50:1E 00 88 DO F8 A0 CC OA 
JSR INPUT2 ; : 0A58:90 02 A0 DC 84 56 20 58 
BCS >3 KEY: TAB: 0A60:FC 20 18 O0B A9 DA 20 F6 
e Fins ee. vd _ = 0A68:FD A5 21 E9 02 85 2C AA 
Em NET Es 0A70:A5 1F 10 06 A9 DE 20 F6 
: 5 ; 0A78:FD CA A5 56 20 F6 FD CA 
LDA CV1 INPUT: PRINT: 0A80:10 FA A9 DF 20 F6 FD E6 
LDX £5 LDA £255 PLA 0A88:22 A4 23 88 84 2D A6 22 
2 CMP IDX, X STA DBECLIC STA PTR 0A90:A4 21 88 8C 9C OA A9 DA 
BEQ >2 ; Re 0A98:2 
pex surore: SA PrRe: Drome euas 
BPL <1 LDA KBD LDY £1 
BMI FUNCTION BPL MOUSEMVE 3 OAA8:ED C6 22 A6 22 A4 23 88 
12 SEC SEC PR LDA (PTR),Y 0AB0:84 22 20 11 OB 20 58 FC 
SBC £7 *0 STA STROBE PRO JSR VTAB 0AB8:20 18 OB 86 22 E6 21 A9 
LSR RTS ‘ CACO:DA 20 F6 FD 20 11 OB A9 
ls L Fe ES OAC8:DF A6 2C 20 F6 FD CA 10 
. RE Are OADO:FA 20 18 0B A9 DF 20 F6 
STA STYLE LDY MSLOT STA STORE OAD8:FD C6 21 A5 1F DO 24 AS 
cic LDA MSTAT, Y ; OAE0:22 85 25 20 62 FC E6 24 
RTS ASL PR2 INY OAE8:E6 24 A9 DA 20 F6 FD A9 
; ASL LDA (PTR),Y OAFO:DE 20 F6 FD 20 62 FC E6 
IDX BYT 7,9,11,13,15,17 BPL BOUTONS À BEQ PR3 OAF8:24 A9 D3 A6 2C 20 F6 FD 
“3 LDX INDEX ‘ JSR MOUSEPRT CMP 1255 OB00:CA 10 FA 20 2F FB AS 19 
AE EeD ; BNE >6 0B08:69 05 AA A5 1A 69 00 48 
BEQ DESC BOUTONS : INY 0B10:DA 20 84 FE A9 04 DO 05 
CMP £FB LDY MSLOT BNE PR 0B18:20 80 FE A9 01 1C FB 04 
BRE OTHER pre 8 rer 0820:60 A4 52 B9 78 07 OA OA 
LE me SR Dire ed 0B28:10 06 20 6B 0B 20 58 O0B 
its MTS! Fe 0B30:20 6B O0B A5 18 C9 1B BO 
BLT >0 ASL LDA (PTR),Y 0B38:0D C6 51 09 CO 20 F6 FD 
LDX £0 BMI INPUT2 TAX 0B40:20 55 OC 4C 49 OB 20 F6 
; : INY 0B48:FD A4 52 B9 F8 04 BE 78 
Le = INDEX 20 EUX: re . ss eg 0B50:04 85 1C 86 1B 20 8B OC 
C CPXx a 
Fe SR DES 0858:20 55 OC C9 42 FO 09 C9 
; CPX MINCLIC Ter 0B60:43 DO 01 60 85 18 A9 42 
OTHER CMP £FG BLT INPUT2 BMI PR2 0B68:4C F6 FD A5 1C A6 1B 4C 
BEQ MONT ; : 0B70:8B OC 20 12 OC BO 28 A5 
CMP £FH *1 cLC *8 CMP "” 0B78:18 C9 21 90 4B A5 1C A2 
BNE RSTURN RTS BEQ >9 0B80:05 DD 99 0B FO 05 CA 10 
2 £ DER OB88:F8 30 E7 38 E9 07 4A 85 
MONT DEX REVERT: BNE >0 
PRES SAIT re 0B90:15 A5 18 29 3F 85 18 18 
LDX £6 *0 DEC ICONE *9 JSR CROUT 0898:60 07 09 O0B OD OF 11 A6 
DEX LDY STORE LDA STORE OBAO:15 C9 95 F0 04 C9 8A DO 
BPL <0 JSR COUT2 STA CH OBA8:0B E8 E0 06 90 02 A2 00 
é PASSE BPL PR2 OBB0:86 15 18 60 C9 88 FO 04 
7 Ra 2h æ à OBB8:C9 8B DO 08 CA 10 F1 A2 
: Eng M 0BCO:06 CA 10 EC C9 8D DO E8 
CLIC.OK: : JSR CROUT 0BC8:A9 04 85 2E 1A 85 59 4A 
LDA £4 PICKY: BNE PR1 0BD0:85 5A 85 5B 20 DF 0B C6 
STA TEMP LDA CVi 5 0BD8:59 E6 SA C6 2E DO F5 A6 
AN ATNE JSR BASCALC = ce + OBE0:59 A4 SA 18 CA DO OB 2C 
Egg } Apr iou . 0BE8:30 CO A6 59 90 00 90 00 
RTA VOIX2 Courz: FRS OBF0:90 00 88 DO EF 2C 30 CO 
STA LONGEUR TYA ; OBF8:A4 SA C6 5B DO E6 38 60 
*0 JSR SOUND ROR INC CV 0C00:86 55 85 54 64 87 60 AD 
DEC VOIX1 BCS >0 *2 INC CV 0C08:00 CO 30 OC 10 F9 A9 FF 
_ 2 pu $co55 ee A 0C10:85 87 AD 00 CO 10 05 38 
ARE 7 se ; 0C18:8D 10 CO 60 20 3A OA A4 
F Fe :s ce 5 0c20:52 B9 78 07 OA OA 10 03 
| SOUND: TAY BEQ >4 0C28:20 30 0B A4 52 B9 78 07 
LDX VOIXI LDA (BASL),Y CMP £251 0C30:10 EO 24 87 30 OD CA 30 
LDY VOIX2 BIT ICONE BEQ >5 0C38:D9 A6 18 E4 54 BO D3 E4 
és ne ps EE Si ee. 0C40:55 90 CF 18 60 20 5B FB 
FE) nr : OC48:C6 51 A4 2C 20 5C 0C E6 
BIT SPKR ; :2 Se ne 0c50:2C CA 10 F4 60 A5 1C 20 
LDX VOIX1 “1 BYT ST2, ICONE STA STR1+1 0C58:c1 FB A4 1B 98 6A B0 04 
BCC W1 STA $C054 LDX £8 OC60:AD 55 CO C8 98 4A A8 B1 
ni BCC #2 RTS ea LDA STRI,X 0c68:28 24 51 10 04 29 3F 91 
: es Dee di ee cour 0C70:28 64 51 8D 54 CO 60 20 
AVE: : SR Do ed oc78:F6 FD A9 A4 20 F6 FD A9 
BIT SPKR LDA "$ BMI PR2 OC80:A0 4C F6 FD A5 02 49 B0O 
LDY VOIX2 OUT: ; OCc88:29 3F 60 20 5B FB 86 24 
DEC LONGEUR JSR COUT °ÿ LDX £7 0C90:60 68 85 19 68 85 IA A0 
ses EL OUTSPC: = LDA STR3,X 0C98:01 B1 19 20 5B FB C8 B1 
Le FE DORE HeRAcour OCAO:19 85 24 85 2C C8 B1 19 
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BPL <5 
BIT MSLOT 
BEQ PR3 
JSR MTAB 
LDA £SABLE 
JSR COUT 


PR3 TYA 
ADC PTR 


LDA PTR+1 
ADC £0 


BYT PHX 


ASC sevird' 
STR3 ASC "GOLATAC " 


STA CH 
STX PDEC 


JSR LS 

JSR DEC255 

JMP NORMAL 
DEC255: 

BYT STZ,PDEC+1 

STA PDEC 
DEC512: 

LDY £0 
*0 LDA PDEC 


SBC £100 
STA PDEC 
LDA PDEC+1 
SBC £0 
STA PDEC+1 
BCC >1 


pi! LDA PDEC 


Ge SEC 


JSR WIND 

BYT 1 

BYT 1,57,3,23 
JMP RSCUR 


JSR HOM3 
JMP PRINT 


JSR HOM3 
JMP INIT 


JSR WIND 
BYT 2 

BYT 11,38,8,16 
JSR PRINT 

BYT 9,22 

BYT 253,14,INV 
BYT 252 

BYT 255,14,41 
ASC ‘ ok 
BRK 

JMP PRINT 


LDX £13 
LDA £48 


Pom's n° 33 


+3 


de : 


CHOISE: 


DK 


*0 


76 


BOOT: 


JSR FIXCLIC 


LDA £0 
LDY £$34 
LDX £$9B 
JSR MUSIC 


JSR RSCUR 
JSR INPUT2 
BCC >4 

CMP £ESC 


CLIC.OK 
cv1 
£8 


JSR WIND 

BYT 128 

BYT 15,30, 8,16 
LDX £16 

LDA £42 

JSR FIXCLIC 


JSR PRINT 

BYT 8,24 

ASC ‘drive select' 

BYT 255,11,22 

ASC " DRIVE NUMBER 1 *" 
ASC " DRIVE NUMBER 2 " 


LDA DRIVE 


£ESC 


BYT 9,14 
ASC " boot disk’ 


BOOT2: 


r0 


CATSECT: 


ACESS: 


ERRDOS : 


*0 


La | 


er à 


BYT 255,12,24 
ASC "VERIFY BOOT" 


LDX £0 


STA LENGAT, X 
STA START, X 


BNE <0 
STX LGNFLG 


BNE CATN 


LDA £255 
STA HIDFLG 
BNE CATN 


LDA £255 


* STA DELFLG 


JSR RDCAT 
BYT STZ,WRTOK 


JSR PRTCAT 
JSR CATTCH 
BCS <0 

DEC WRTOK 
JMP QUIT 


LDA BUFFER+1 
STA TRACK 

LDA BUFFER+2 
STA SECTEUR 


LDY £0 


JSR $B7B5 
BCS ERRDOS 


JSR ALARM 

BYT 9,14 

ASC ‘ disk error" 
BYT 255,11,19 
ASC "TRACK :°" 
ASC "SECTOR: "" 
ASC "CMD Qu 





OCA8:FO0 
OCB0O:E8 
OCB8:AA 
O0cc0:10 
occ8:c9 
0CD0: 62 
0CD8:c9 
OCE0:BD 
OCE8:08 
OCFO:AA 


OCF8:18 
0D00:0C 
0D08:0D 
0D10:94 
0D18:FD 
0D20:20 
0D28:98 
0D30:48 
0D38:76 
0D40:D4 
0D48:8A 
0D50:4C 
0D58:00 
0D60:A5 
0D68:c8 
0D70:44 
0D78:38 
0D80:B0 
0D88:29 
0D390:45 
0D98:2A 
0DA0:20 
0DA8 : OA 
0DB0O:0C 
0DB8:0E 
0DpC0:91 
0pc8:0c 
O0DDO:28 
0DD8: 90 
O0DE0:0D 
0DE8:4C 
ODFO:E4 
ODF8:E5 
0E00:2D 
0E08:80 
0E10:2A 
0E18:18 
0E20:65 
0E28:A0 
0E30:D5 
0E38:DE 
0E40:CE 
0E48:A0 
0E50:0F 
0E58:12 
0E60:20 
0E68:D0 
0E70:03 
0E78:5E 
0E80:04 
0E88:16 
0E30:33 
0E98:D4 
0EA0:6F 
0EA8:FF 
0EB0O:D9 
0EB8:C2 
0ECO:A2 
0EC8:A2 
0ED0: 93 
0ED8 : OA 
0EEO:FF 
0EE8:20 
0EFO0:C6 
0EF8:85 
0F00:00 
0F08:20 
0F10:73 
0F18:FF 
0F20:A0 


20 
oc 
8F 
03 
85 
FO 
E0 
90 
90 
20 
6F 
oc 
A0 
0D 
FE 
00 
CA 
A9 
85 
D7 
7C 
04 
98 
A6 
6B 
0B 
BA 


A5 


DO 


F0 


64 


A5 


8F 


B0 








D2 


F6 
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*0 


2 


*2 


ROCAT: 


*0 


ADC 
STA 


9, 14 

* write catalog’ 
255,12,24 

"ARE YOU SURE" 


£0 
(PTR),Y 
BUFFER, X 


>3 


£$23 
<2 
<1 


ACESS 
<0 


£0 
BUFFER, X 


<5 
ACESS 
QUIT 


PRINT 

9,22 
“READING " 
251 


£ADRSTK 
ADRTBL 
/ADRSTK 
ADRTBL+1 
£2 


ADRTBL-2, X 


£35 
ADRTBL, X 
ADRTBL-1,X 
£0 
ADRTBL+1,X 


£254 

<0 

£0 

ADRTBL, X 
ADRTBL+1,X 


£$11 

TRACK 

STZ, SECTEUR 
£1 

CMD 

/BUFFER 
DATA+1 
ACESS 


G00DOS : 


“0 


M ! 


NODEL 


+ 


*3 


RDTSL: 


*0 


BUFFER+1 

£$11 

G90D0S 

ALARM 

9, 14 

* dos error" 

255,12,21 

"NOT À DOS 3.3 

DISK" # 


ALRM 
INIT 


STZ, FREE 

STZ, FREE+1 

ST, FILENBE 

STZ, DELETED : 


£$8c 
BUFFER+$38-1,Y 
NXTTRACK 


TST 


FREE ce ; 
OTH 
FREE+1 


TST+2 


DESCR 


£255 
FILENUM 


CATSECT 

£11 

BUFFER, X 

>3 ; 
NODEL "3 
DELETED 


FILENUM D | 
FILENBE 
FILENUM 
ADRFIL 
£0 
BUFFER, X 
(PTR),Y 


ADRFIL: 


<0 


£35 
<2 
<1 


FILENUM 
INA 


ASCENS : 
FILENBE 
DELETED 
INA 
FILEOK 


£0 ; 
ADRTBL, Y 

ADRTBL+1,Y 0 
FILENUM 

LGNFLG 

RDTSL 


TEMPO 

TEMPO+1 

TEMPO i 
ADRFIL 

<0 


£3 
(PTR), Y 
BUFFER, Y 


<0 
£255 


>4 
TRACK 








ADRFILE: 


SECTEUR 
BUFFER+2 
FILETYPE 
TEM1 

— 

>3 

.? 


>3 


/TSL 
DATA+1 
ACESS 
TSL+12 
TRACK 
TSL+13 
SECTEUR 
ACESS 


£3 
TEMP1 


TSL,X 
LENGHT+1, Y 
TSL-1,X 
LENGAT, Y 


>3 

TSL, X 
START+1,Y 
TSL-1,X 
START, Y 


TEMPO+1 
/BUFFER 
DATA+1 
TEMPO 
RDTSL+4 


ADRTBL, Y 
ADRTBL+1,Y 
>0+#1 
ADRTBL, Y 
PTR 
ADRTBL+1,Y 
PTR+1 


$38 


$co55 

"o 
LGN22+1 
INA 
LGN22+28 


£26 

"v 

$co55 
LGN22+1,X 
INA 

$co54 
LGN22+1, X 


<0 
LGN22+1 


£52 
FILENUM 
FILENBE 


COMPUTE 


OF28:D2 BA 
0F30:A0 BA 
0F38:1A 20 
0F40:69 74 
OF48:A5 25 
0F50:4C DA 
0F58:D2 C5 
OF60:25 A4 
0F68:20 46 
0F70:09 20 
0F78:72 69 
0F80:61 6C 
OF88:D2 C5 
0F90:D5 D2 
0F98:91 OC 
OFA0:C9 CE 
OFA8:8D 01 
OFBO:8D 02 
0FB8:0C A2 
OFCO:E6 85 
OFC8:17 AO 
OFDO:E8 F0 
O0FD8:B0 E6 
OFEO0:A9 00 
OFE8:20 FF 
OFFO:0C 09 
OFF8:CE C7 
1000:81 A9 
1008:BD FE 
1010:81 BD 
1018:81 E8 
1020:00 9D 
1028:11 85 
1030:0C A9 
1038:AD 01 
1040:A6 0D 
1048:20 65 
1050:15 CE 
1058:CF D3 
1060:c9 D3 
1068:79 09 
1070:64 81 
1078:0D OA 
1080:02 E6 
1088:EB A9 
1090:A2 0B 
1098:02 E6 
10A0:85 20 
10A8:80 91 
10B0:23 90 
10B8:0A A8 
10c0:85 7F 
10C8:01 81 
10D0:60 85 
10D8:4E 11 
10E0:99 00 
10E8:F0 5F 
10F0:05 AD 
10F8:30 C3 
1100:42 A9 
1108:AD OC 
1110:85 05 
1118:30 C9 
1120:02 A2 
1128:00 94 
1130:99 00 
1138:00 94 
1140:99 00 
1148:09 E6 
1150:B9 00 
1158:B9 00 
1160:85 1A 
1168:C0 A9 
1170:6C 07 
1178:C0 9D 
1180:9D 51 
1188:07 A9 
1190:20 A3 
1198:20 8B 
11A0:4C 2A 





6F 67 FF 0C 18 C1 


OC A9 5C 20 F6 FD 
0B 8E BO 11 8C BE 
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COMPUTE : 
STX Al+1 
STY A2+1 
JSR FLOAT 
JSR ARG 

Al LDA £0 
JSR FLOAT 
JSR SIGNE 
JSR MULTI 
JSR ARG 

A2 LDA £0 
JSR FLOAT 
JSR SIGNE 
JSR DIVISE 
JSR INT 


PRTCAT: 

JSR DRVASC 

STA CATDSK 

JSR ENTER 

BYT 3,2 

ASC: PA 

BYT 253,18,'ç' 

ASC ‘ catalog disk 
CATDSK ASC " 

BYT 253,18,'ç' 


BIT DELFLG 
BMI >1 

LDA FILEOK 
STA FILENBE 


°0 LDA DELETED 


STA DELETED 


Go JSR PRINT 
BYT 20,4 
ASC "FILES:" 
BYT 253,6,SPC 
ASC "DELETED: 
BYT 253,5,SPC 
ASC "FREE:" 
BYT 253,6,SPC 
ASC "NUMBER :" 


*0 LDA £11 


*0 JSR LS" 


LDA FILEOK 
BNE PRTCAT' 
JSR INVERSE 


LDA £52 
JSR LS' 
JSR ASCENS 


JSR ALARM 

BYT 9,14 

ASC " catalog" 

BYT 255,12,22 

ASC "NO FILE ON DISK" 





PRTCAT': 


*a 


*0 
| 


22 


+ 


*0 


PRTFILE: 


*0 


*8 


*8 


*8 


MOVING 

>0 

PRINT 

3,25 

"< moving >' 


£20 

VTAB 
£52 
FILENUM 


LS" 
ASCENS 
£5 

VTAB 
FILENUM 


£8 


>0 
£0 


FILENUM 
>2 
ICONE 
ADRFIL 


>3 
PRTFILE 


£0 
TEMP 


(PTR),Y 
>0 


" LED " 


LGNFLG 


$FC10 


(ae | 


4 
*3 


*5 


ADRPRT: 


*0 


<8 


LDY £2 
LDA (PTR),Y 


BPL >2 


JSR FILETYPE 


LDY £$21 
LDA (PTR),Y 
JSR DEC255 
JSR OUTSPC 


LDY £3 
LDA (PTR),Y 
CMP £SPC 


CPY £32 


LDX £15 

STX TEMP 

LDA START, Y 
ORA START+1, Y 
BEQ >0 


LDA "A 

JSR AL 

LDA START+1, Y 
LDX START, Y 
JSR PRAX 


LDA LENGAT, Y 
ORA LENGHT+#1,Y 
BEQ >1 

LDA "L 

JSR AL 

LDA LENGHT+1,Y 
LDX LENGAT, Y 
JSR PRAX 












11A8:11 
11B80:00 20 
11B8:82 E9 
11C0:93 EB 
11C8:20 23 
11D0:EB 20 
11D8:84 OC 
11E0:03 02 
11E8:61 74 
11F0:69 73 
11F8:5C 00 
1200:85 80 
1208:81 17 
1210:20 8D 
1218:91 OC 
1220:D3 BA 
1228:C5 D4 
1230:A0 C6 
1238:A0 CE 
1240:00 A6 
1248:A9 0B 
1250:81 DO 
1258:0D A5 
1260:82 20 
1268:7F DO 
1270:34 20 
1278:A6 OD 
1280:61 6C 
1288:CF A0 
1290:CE A0 
1298:C2 OD 
12A0:10 20 
12A8:6D 6F 
12B0:00 A9 
12B8:A6 85 
12C0:11 A9 
12C8:38 E9 
12D0:8A C5 
12D8:4E 11 
12E0:E6 25 
12E8:A5 25 
12F0:A9 02 
12F8:20 58 
1300:30 03 
1308:86 2D 
1310:20 8B 
1318:19 10 
1320:25 4C 
1328:BD 33 
1330:F7 30 
1338:A2 04 
1340:FC 4C 
1348:10 FA 
1350:04 A9 
1358:F6 FD 
1360:0C A0 
1368:20 7F 
1370:A0 BO 
1378:5F 10 
1380:60 49 
1388:1B B0O 
1390:Cc8 cO 
1398:2E 10 
13A0:A2 2A 
13A8:A5 2D 
13B0:51 10 
13B8:60 OA 
13C0:00 93 
13C8:c1 20 
13D0:00 93 
13D8:F6 FD 
13E0:01 92 
13E8:0C B9 
13F0:41 F9 
13F8:20 7F 
1400:c9 c1 
1408:7F A0 
1410:D0 FA 
1418:12 20 
1420:72 A5 





EC 
oc 


A2 


D2 


18 


06 A0 


DO 02 


14 A9 


D3 D2 
0A 0A 
FF 13 
0B 20 
A6 1C 


A9 


A9 


A5 


A9 
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CATUP LDX £20 1428:18 E0 14 BO 14 A5 1B C9 
£FH EDY £40 1430:3A BO E9 A5 18 30 E5 C9 
us ; PNR 1438:40 BO El A9 FF 85 2F 38 

? 1440:60 E0 03 DO 23 A6 1B E0 


CATDK FILEPOS BYT 0,6,12,18, 24,239, 
£FB 35,41, 47, 52,58 1448:30 90 1D EO 38 BO 19 24 























RRASSERENESS 
g 
E 


FILECDE ASC "TIABSR?L" C 1450:7C 10 15 8D 67 OB 20 2A 
: "B SORT: 1458:0B A9 42 8D 67 OB 64 7C 
FILETYPE: CATBG JSR WIND 1460:A9 cO 20 A8 FC 4C 71 OF 
AND £$7F ee né _ ue 1468:C9 4F FO 63 C9 5E FO 20 
tr = se D 1470:C9 57 FO 08 C9 50 FO 68 
0 FE ne 0 BYT 5,16 1478:C9 56 DO A0 A5 1B 3A 3A 
BCS >1 BIT WRTOK ASC '” catalog sort’ 1480:A6 80 CA A0 34 24 86 30 
DEY BPL >0 BYT 253,4, INV,252 1488:8D 20 A3 11 86 85 10 86 
BNE <0 AE RRTCST certe 1490:4C AO OD C9 9B FO F9 C9 
"1 LDA FILECDE, Y L Re = = d PR 1498:88 FO 34 C9 8B FO 30 C9 
; + peste RE 14A0:95 FO 3D C9 8A FO 39 C9 
: SEC s2 ASC "- NUMERICAL"" 14A8:c2 FO 46 C9 C5 FO 54 C9 
CATTCH": SBC £$B0 INV "3" 14B0:D7 DO 07 24 7C 10 03 4C 
JSR PRTCAT' BHI >0 53 ASC "- FILE TYPE°" 14B8:71 OF C9 8D FO OF 38 E9 
JSR MOUSEPRT CMP £10 INV "4" 14C0:B0 30 OA C9 OA BO 06 AA 
CATTCH: BGE >0 S4 ASC RENE ÉOOCEEE 14C8:BD 39 15 10 B3 38 60 20 
JSR INPUT TAX INV "5" 
es RS er OS À FE PRE 14D0:15 15 BO 09 24 86 10 03 
: BPL <9 INV "6" 14D8:20 38 17 C6 85 4C 16 14 
LDA STYLE *0 SEC 56 ASC "- PURGE DELETE" 14E0:20 1B 15 B0 F8 24 86 10 
LDX CVi RTS BRK 14E8:03 20 1D 17 E6 85 4C 16 
De 2 At. ; pere 14F0:14 20 15 15 BO F8 24 86 
> : 
de ETES nee 14F8:10 03 20 38 17 C6 85 10 
ESS LS SR FDICLIC 1500:F0 30 EB 20 1B 15 B0 E6 
; BIT MOVING : 1508:24 86 10 03 20 1D 17 E6 
LDA CH1 BPL >0 SI: 1510:85 10 FO 30 D9 A5 85 FO 
CMP £58 JSR EXCH2 BIT TSENS 1518:09 18 60 A5 85 LA C5 80 
ee a. *. re mn ss eee 1520:90 F8 A9 32 A2 E6 AO E6 
Re , re 1528:85 5B 86 59 84 SA 4C DF 
Ce £540 en: ASC * negatif" 1530:0B A9 7D A2 14 AO 28 DO 
BGE CATTCH JSR LIMB BRK 1538:EF 00 06 OC 12 18 1D 23 
LDA £255 BCS <1 BNE >0 1540:29 2F 34 3A 20 45 OA 01 
STA TEMP+1 BIT MOVING ; 1548:0F 1E 05 15 20 91 OC 05 
Rs ps ut ASC nl D 1550:10 5E 20 63 61 74 61 6C 
À e re 266 * it 1558:6F 67 20 73 6F 72 74 FD 
Fe res Æ RS: Fr 1560:04 20 FC FF 08 17 31 AD 
BNE >8 ce ; 1568:A0 C1 CC DO C8 C1 C2 C5 
LDX CHI CATBG: *0 JSR RSCUR 1570:D4 C9 C3 C1 CC DE 32 AD 
CPX £48 JSR LIMH : 1578:A0 CE D5 CD C5 D2 C9 C3 
pese a BCS <1 co JR a 1580:C1 CC DE 33 AD A0 C6 C9 
BGE >8 pis D ss un 1588:CC C5 A0 D4 D9 DO C5 DE 
BIT RRTOK ere te 1590:34 AD A0 C6 C9 CC C5 A0 
BPL >8 *0 DEC FILENUM BEQ >3 1598:cC CF C3 CB DE 35 AD A0 
STA CHGCUR+1 BPL CATBG LDX CV1 15A0:D0 C5 D2 D3 CF CE C1 CC 
JSR RSCUR BMI <1 CPX £5 15A8:DE 36 AD A0 DO D5 D2 C7 
_ pue RE es . 1580:C5 AO C4 C5 CC C5 D4 C5 
ES LS TE LOS RTS 1588:00 A2 10 A9 2C 20 00 OC 
Da 200 FRENE cup 15C0:24 17 10 11 20 91 OC 14 
JSR WAIT BIT MOVING BNE >4 15C8:1A 20 6E 65 67 61 74 69 
JMP WRTCAT BPL >0 Là] SEC 15D0:66 20 00 DO OF 20 91 OC 
; JSR EXCH1 sBc ‘1 15D8:14 1A 20 70 6F 73 69 74 
is Re : D pra 15E0:69 66 20 00 20 2A 0B 20 
m2 a ii 15E8:12 OC BO 1D A5 18 C9 5E 
BEO 53 : 15F0:F0 2C A6 1C EO 05 FO EF 
CMP ‘NW LIMH: 22 CMP £SPC 15F8:E0 14 DO 04 C9 DF DO 21 
BEQ >9 LDA FILENUM BEQ >4 1600:38 E9 31 30 E2 C9 07 90 
cmP 'P BEQ LIMERR CMP "7 1608:34 C9 AO FO 14 C9 B7 BO 
pre pq ' EE Re 1610:09 c9 BO 90 05 38 E9 B1 
BNE CATTCH rs bé sa ee 1618:10 23 c9 9B DO C9 4C A0 
’ nes P 1620:0D 20 29 16 20 31 15 BO 
9 LDA CHI LDA FILENUM SBC "1 1628:97 A5 17 49 FF 85 17 AD 
BYT DEA BYT INA BPL SG 1630:3C 16 AE OB 17 8E 3C 16 
" SIL CMP FILENBE ; 1638:8D 0B 17 60 BO 85 58 20 
“4 Le pr BCC <0 "2 CMP £ESC 1640:C8 0B 20 8F OD A9 FF 85 


re D 1648:5C 20 EE OF A6 58 BD 9E 
É 1650:16 85 19 BD 98 16 85 1A 
-4 JSR TSENS. 1658:A0 00 B1 19 FO 15 C9 DE 
JSR NOISE 1660:F0 11 C9 AO DO 04 A9 20 
BCS SI 1668:D0 03 38 E9 60 99 90 17 
: 1670:C8 10 E7 A9 20 CO OE BO 
TSENS. : 
EPS 1678:06 99 90 17 C8 DO F6 BD 
RATE 1680:B6 16 8D D6 16 BD BO 16 
STA TSENS 1688:8D D8 16 BD AA 16 85 19 
LDA TS2 1690:BD A4 16 85 1A 6C 19 00 
LDX TS 1698:15 15 15 15 15 15 69 79 
RTS 16A0:86 93 AO AC 17 17 17 17 
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NR 


*3 


"4 


*5 


si 
à 


PRGO 


STL: 


SORTH: 


SORTL: 


TS 


OPTION 
CLIC.OK 
HOM3 
£255 
DELFLG 
RDCAT 


OPTION 
STL, X 
PTR 

STAH, X 
PTR+1 
£0 
(PTR),Y 
>6 


£$60 
SE+2,Y 


<3 
£INV 
£14 
PRGO 
SE+2,Y 


<7 


S5s,x 
SS2+1 
SL,x 
SL2+1 


SORTL, X 
PTR 
SORTA, X 
PTR+1 
(PTR) 


33,34,3,3,0,0 
2,32,1,1,0,255 


STZ, TEMPO 
TEMPO 


FILENUM 
ADRFILE 
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Sz2 


Le | 


EXCH1: 


ro 


EXCH2: 


*0 


SES #4: 


ES 


(PTR),Y 
SL2 
PA 


EXCH1 


STZ, FILENUM 


FILENUM 


£2 

ADRTBL, X 
TEMPO+1 
ADRTBL+2,X 
ADRTBL, X 
TEMPO+1 
ADRTBL+2,X 


<0 


FILENUM 


£2 

ADRTBL, X 
TEMPO+1 
ADRTBL-2, X 
ADRTBL, X 
TEMPO+1 
ADRTBL-2,X 


<o 


ALPHA: 


SE 
SE2 


*0 
Sr : 


cr { 


RATS: 


BYT STZ, DOS 
JSR TRI 

BIT DEL 

BPL >0 

LDA FILEOK 
STA FILENBE 
ASL 

TAY 

LDA £0 

STA DELETED 
STA ADRTBL, Y 
STA ADRTBL+1,Y 


BYT STZ,DEL 
BYT STZ, LOCK 
BYT STZ, ALPHA 


JSR SENT 
JSR CATTCH 
BCS <0 


JSR ENTER 
BYT 3,2 


ASC ‘” purge deleted ‘ 
BYT 253,29, INV, 252 


BRK 

LDA £255 
STA SETCUR 
JMP PRTCAT" 


JSR SENT 
BPL >1 

JSR PRTCAT' 
BYT ST2, TEMP+1 
JSR CATTCH 


BIT TEMP+#1 
BMI >2 

CMP £CR 
BNE <0 

LDA MOVING 
EOR £255 
STA MOVING 
JSR PRINT 
BYT 3,25 
BYT 253,9, INV 
BRK 

JSR NOISE 
BCS <0 


ORG $00 
OBJ RHTS 


HEX 01 
HEX 60 
HEX 01 
BRK 

BRK 

BRK 

ADR DCT 
ADR BUFFER 
HEX 0000 
HEX 01 
HEX 00006001 
BRK 

HEX 01 
HEX EFD8 


HEX 0000000 
HEX 00C8 
HEX 0100 


ORG RWTS+$1D 
oBJ * 
DFS $1800-*, 0 


LST 


+ PASCAL DUBOIN 
+ VIGNY THYEZ 
+ 74300 CLUSES 


; ASSEMBLEUR: LISA 2.5 
; CREATION : JAN 1987 


; MODIFS 


: MAI 1987 





+ ADRESSE DEBUT: $800 soit 2048 
+ ADRESSE FIN : $17FF soit 6143 
+ LONGEUR : $FFF soit 4095 
: TAILLE DISK : 18 SECTEURS 


END 





16A8:17 17 62 62 60 53 AA 57 
16B0:21 22 03 03 00 00 02 20 
16B8:01 01 00 FF 64 56 A6 56 
16C0:86 85 20 4D 11 B0 4B E8 
16C8:86 56 85 2D A5 19 85 2C 
16D0:20 4D 11 B0 3D AO 02 CO 
16D8:21 FO E3 C8 B1l 2C 24 7D 
16E0:10 25 24 79 10 05 C9 FF 
16E8:4C 0B 17 24 78 30 OF 29 
16F0:7F 48 Bl 19 29 7F 85 2E 
16F8:68 C5 2E 4C 09 17 24 78 
1700:10 05 C9 46 4C 09 17 D1 
1708:19 FO CC 90 B1 20 1D 17 
1710:F0 AC E6 84 A5 84 C5 85 
1718:D0 A2 64 85 60 A5 85 OA 
1720:AA A0 02 BD 00 81 85 57 
1728:BD 02 81 9D 00 81 A5 57 
1730:9D 02 81 E8 88 DO EC 60 
1738:A5 85 OA AA AO 02 BD 00 
1740:81 85 57 BD FE 80 9D 00 
1748:81 A5 57 9D FE 80 E8 88 
1750:D0 EC 60 C6 78 DO 09 C6 
1758:79 24 17 10 03 20 29 16 
1760:C6 7D 64 84 20 BC 16 24 
1768:79 10 10 A5 7F 85 80 OA 
1770:A8 A9 00 85 81 99 00 81 
1778:99 O1 81 64 79 64 78 64 
1780:7D 20 89 17 20 1C 14 B0 
1788:FB 20 9A OD 03 02 5E 20 
1790:70 75 72 67 65 20 64 65 
1798:6C 65 74 65 64 20 FD 1D 
17A0:20 FC 00 A9 FF 85 60 4C 
17A8:FA 11 20 89 17 10 03 20 
17B0:9D 12 64 2F 20 1C 14 24 
17B8:2F 30 04 C9 8D DO F0 A5 
17C0:86 49 FF 85 86 20 91 OC 
17C8:03 19 FD 09 20 00 20 31 
17D0:15 BO DC 01 60 01 00 00 
17D8:00 11 00 00 80 00 00 01 
17E0:00 00 60 01 00 O1 EF D8 
17E8:00 00 00 A0 00 C8 01 00 
17F0:00 00 00 00 00 00 00 00 
17F8:00 00 00 00 00 00 00 00 


Programme 
BOOT 


Pour lancer CATS & MOUSE, 
faites RUN BOOT et non 
BRUN CATS & MOUSE... 


10 HOME : IF PEEK (49175) 
> 127 THEN PRINT "80 
COLONNES EXIGEE": NEW 

20 DS = CHRS (13) + CHR$ (4): 
PRINT D$"PR£3" 

40 POKE 1010,0: POKE 1011, 3: 
POKE 1012,166 

50 POKE 768,32: POKE 769,234: 
POKE 770,3 

60 POKE 771,32: POKE 772,58: 
POKE 773,252 

70 POKE 774,76: POKE 775,102: 
POKE 776,213 

190 PRINT DS"BRUNCATS & MOUSE" 
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nnaire 


Il était temps qu'un 
révolutio 
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soit aussi capable d'évoluer 
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HyperCard 


La distribution d'HyperCard reste 
floue, en tous cas un peu retardée, 
de novembre, la promesse passe à 
décembre pour livraison avec tous 
les nouveaux Mac. Les 
développeurs restent les 
privilégiés de ce programme gour- 
mant en mémoire : moins de1000F 
pour 360Ko de soft, des centaines 
de Ko de‘stackware’ et la documen- 
tation. Cette documentation est en 
revanche à la disposition de tous 
chez bien des revendeurs... 


3614 


Le Club Apple se positionne un peu 
en retrait par rapport à CalvaCom 
mais a créé son serveur en 3614, 
code APPLE. 3614 à 22,20 F/heure, 
voilà de quoi attirer les Mini- 
telistes applemaniaques lassés du 
coûteux 3615. Aujourd'hui, seule la 
messagerie est active, l'ensemble 
devant fonctionner à l'heure où 
vous lisez ces lignes. 


Précipitation 


Avec Radius Accelerator, la vitesse 
du MacintoshPlus ou SE est 
multipliée par 4, gain accentué 
avec l'option coprocesseur. 
L'accélération a un prix : 9900 Feet 
4 000 F le processeur 68881... 
Coûteux également (20 000 F) mais 
impressionnant : Radius FPD qui 
affiche 1024 x 864 points sur écran 
15 pouces. Se connecte dans le con- 
necteurinterne du SE. Le tout chez 
P-Ingénierie 224, bld Raspail à 
Paris. 


Vu... 


à Apple Expo (ou plutôt Mac- 
Expo) un Michel Polac effrayé par 
la micro : la fabuleuse 


démonstration de VidéoWorks y 


serait-elle pour quelque chose ? 
Plusieurs mégas pour en mettre 
‘plein la vue et les oreilles’, mission 
accomplie. 


Recherche attributs 


Pour composer et mettre en page 
Quark Xpress — en français — fait 
un pas de plus : pour Mac Plus, SE 
ou II et toutes imprimantes ou 
photocomposeuses PostScript ou 
LaserWriter. 

Prévu pour l'importation d'images 
numérisées au format TIFF, même 
en couleurs (on parle d'une pro- 
chaine version fonctionnant avec 
photocomposeuse couleur). Voilà 
ce qui manque à nos traitements de 
textes : pouvoir rechercher toutes 
les mentions en gras, les mots en 
police Palatino, etc. Problème 
résolu : pour 7500 F ce soft le per- 
met ainsi que la gestion des césures 
à la française avec exceptions. 
Semble d'une relative lenteur 
(considérant le matériel) à l'usage, 
les extensions mémoires ne sont 
pas un luxe. Toujours chez P- 
Ingénierie. 


Wysiwyg 


Le nouveau mot à la mode. L'écran 
Viking connu sur les PC dote 
aujourd'hui le SE de 1280 x 960 
points. Ilest dit rapide etreposant. 
ACEE 4, bis rue de châteaudun à 
Paris. 


PageMaker 


Aldus Corporation annonce sa ver- 
sion 3.0 sur Mac et PC. Il devient 
possible de faire des textes impor- 
tants (128 pages au lieu de 16), 
d“habiller” des images, de gérer la 
couleur, mais toujours pas de re- 
cherche. ISE-Cégos, Tél (1) 46 84 
49 84. 











Ouverture 


LSD Développement à Lille pro- 
pose un accessoire de bureau pour 
les utilisateurs de LSD-Compta. Il 
permet la récupération de fichiers 
TEXT : pratique pour préparer des 
écritures en traitement de textes, 
récupérer des données de tableurs 
etc. Chez les concessionnaires 
Apple. Tiens ? LSD Compta version 
2.12 permet de revenir en arrière 
dans la comptabilité, est-ce bien 
raisonnable ? Tél : 20 85 04 37 


Mac contre Mac 


Une occasion de faire évoluer le 
matériel. Voici la méthode : rendre 
visite à son concessionnaire Apple 
avec11 750 Fetun LisaouMacXL 
ou Mac 128 ou Mac 512. On en 
ressort avec un Macintosh Plus 
couleur platine. L'ancien matériel 
est donné à une association d'aide à 
l'enfance inadaptée. 


Laser encore Plus 


Les dernières LaserWriter 
américaines comportent une nou- 
velle version de PostScript encore 
plus rapide. 


Mathématiques 


Un accessoire de bureau chez 
AlphaSystème à Grenoble pour 
éditer les formules mathématiques 
devant lesquelles nos éditeurs de 
textes se trouvent bien dépourvus : 
accolades sur plusieurs lignes, 
racines etc. Tél 76 43 19 97, Cal- 
vaCom AS13. 


Compiler... 


le Basic Microsoft 3.0 avec le 
compilateur du même nom. Les 
résultats sont plaisants par la 
rapidité (ce n'est tout de même ni 
Pascal ni l'assembleur), par la 
compatibilité HFS, par les nou- 
velles instructions Else, Endif, 
Elself, Case. Difficultés avec les 
programmes utilisant des routines 
assembleur. Revendeurs Apple. 
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aint = Minitel est 
un programme 
de transformation 
| d'images MacPaint 
= ou FullPaint en 
images semi-graphiques 
Vidéotex. Il fonctionne sur 
tous les Macintosh 
disposant d'au moins 
512Ko de mémoire vive. 





Directement inspiré du programme 
pour Apple // de Patrice Neveu publié 
dans ce numéro, Paint — Minitel, 
utilise la même méthode de calcul ; 
afin de ne pas doubler les explications 
techniques, nous vous proposons donc 
— pour celles-ci - de vous reporter à 
l'article de la page 11, où sont exposés 
les différents points à retenir pour 
l'écriture de ce genre d'application. En 
fait, la seule différence technique 
notable entre les versions Apple // et 
Macintosh porte sur le nombre de 
lignes formant l'image ‘source’ : 192 
pour l'Apple // contre 240 (comme le 
Minitel) pour le Macintosh. En ce qui 
concerne le résultat, vous avez un 
exemple sur la couverture de ce 
numéro 33 de ce que devient la célèbre 
Lady d'Apple après traitement ; 
compte tenu des contraintes imposées 
par le Minitel, ce n'est pas si mal ! 


La liaison Macintosh/Minitel se fera, 
comme à l'accoutumée, par le câble de 
liaison que vous possédez 
certainement déjà. Sinon, vous pouvez 
le commander directement à la revue. 
Le raccordement se fait sur l'interface 
série ‘communication’. 
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EE 


Contraste (1 à 500): 


Utiliser 
Paint + Minitel 


Si la base théorique est identique à 
celle de la version Apple //, il n'en va 
bien sûr pas de même pour la 
programmation et l'utilisation. Le 
‘listing’ du programme étant 
suffisamment clair pour être compris 
aisément par nos lecteurs amateurs de 
Basic, nous allons tout de suite passer 
au mode d'emploi. 


y 


Chargement d'une 
image Mac/FullPaint 


Le chargement d'une image ‘source’ 
est obtenu grâce à l'article Chargement 
image Paint... du menu Fichier, 
lequel provoque l'affichage de la 
fenêtre de sélection standard, qui 
elle-même ne laissera apparaître que 
les documents créés à l'aide de 
MacPaint ou FullPaint. La partie utile 
de l'image chargée, décodée et affichée 
correspond à la partie supérieure 
gauche du document Mac/FullPaint 
(240 lignes de 320 points). 


== 


Inversion de 

l'image ‘source? 

En fonction de la densité — ou plus 
simplement de la nature du contenu — 
de l'image, il peut être utile d'en 
inverser les valeurs ; pour cela, vous 
disposez de l'article Inversion de 
l'image placé dans le menu 
Traitement. Pour retrouver une image 
conforme au document original, il 
suffit d'utiliser à nouveau le même 
article. 


Conversion de l'image 


Il convient d'employer l'article 
Conversion Paint/Minitel du menu 
Traitement. Une fenêtre s'affichera 
alors, vous proposant un traitement en 
noir et blanc ou avec des nuances de 
gris. Avec le traitement en noir et 
blanc, seules ces deux valeurs 
extrêmes seront utilisées sur l'écran du 
Minitel ; cette méthode se révèle être 
souvent efficace avec les images 
faiblement contrastées. Lors de 
l'emploi des nuances, une seconde 
fenêtre vous propose le choix du 
contraste, de 1 à 500. Par défaut, le 
contraste est de 10 pour les images 
‘normales’, et 100 pour les images 
inversées. 
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Pendant le traitement proprement dit, 
un rectangle visualisant le caractère 
concerné ce déplace rapidement sur 
l'écran du Macintosh, alors que le 
résultat s'affiche simultanément sur 
l'écran de votre Minitel. Bien que la 
présence de ce dernier soit pratique — 
puisqu'elle autorise un contrôle 
immédiat du résultat — elle n'est 
absolument pas indispensable. 

Les opérations peuvent être 
interrompues en maintenant enfoncées 
les touches Commande et ‘.”. 


Sauvegarde de 

l'image Vidéotex 

Après traitement, l'image Vidéotex est 
en mémoire et, si nous voulons la 
conserver pour une utilisation future, 
il faut l'enregistrer avec l'article 
Sauvegarde image Minitel... du menu 
Fichier. Une fenêtre standard permet de 
nommer le fichier qui reçoit l'œuvre. 
Pour une exploitation des images 
issues de Paint — Minitel avec un 
autre logiciel (serveur par exemple), 
signalons que le type donné aux 
fichiers générés est /mMi, pour Image 
Minitel (l'imagination, quand 
même...). 


Consultation d'une 

image Vidéotex 

Il est possible de charger rapidement et 
d'envoyer vers le Minitel des images 
Vidéotex en utilisant l'article 
Chargement & envoi d'une image 
Minitel. du menu Fichier. Dans ce 
cas — et logiquement — seuls les 
fichiers de type ImMi peuvent être 
sélectionnés. 


Exemple d'utilisation 
des images créées 


Ces images seront évidemment 
utilisables par votre serveur actuel ou 
futur mais, en attendant, il est déjà 
possible de l'envoyer sur le Minitel 
d'un correspondant avec le petit 
programme — rustique — suivant : 


DEFINT A-Y 
Escape$=CHR$(27) 
PRO1$-Escape$+CHR$(57) 
SOH$=CHR$(1) 
EOT$=CHR$(4) 
ENQROM$=CHRS$(&H7B) 
Deconnexion$=-CHR$(103) 
Connexion$=CHR$(104) 


RET1$-CHR$(111) 

MENU 1,0,1,"Fichier" 

MENU 1,1,1,"Ouvrir.." 
MENU 1,2,1,"" 

MENU 1,3,1,"Quitter" 
WINDOW CLOSE 1 

ON MENU GOSUB Eventienu 
MENU ON 

ON BREAK GOSUB rien 
BREAK ON 

Boucle: 

GOTO Boucle 

EventMenu: 

MENU OFF 

Nmenu=MENU(0) 
Narticle=MENU(1) 

ON Nmenu GOSUB mFichier,rien 
MENU 

MENU ON 

RETURN 


mFichier: 

ON Narticle GOSUB aChargeMinitel, J 
rien, Quitter 

RETURN 

aChargeMinitel: 

ON ERROR GOTO ErreurChargeMinitel 

FichierMinitel$=FILES$(1 ,"ImMi") 

IF FichierMinitel$=" THEN 

RETURN 

END IF 

OPEN FichierMinitel$ FOR INPUT J 
AS 1 LEN=512 

Chainelmage$=INPUT$(LOF(1),1) 

CLOSE 1 

OPEN "COM1:1200" FOR OUTPUT | 
AS 1 LEN=-512 

OPEN “COM1:1200" FOR INPUT AS 2 

PRINT#1,PRO1$ RET1$ PROS J 
Connexionf; 

tempo#=TIMER 

WHILE TIMER<tempo#+6 

WEND 

Envois=0 

Boucle2: 

tempo#=TIMER 

PRINT#1,PRO1$ ENQROM$; 

WHILE TIMER<tempo#+1 

IF LOC(2)>=3 THEN GOSUB Test 

WEND 

Envois=Envois+1 

IF Envois<20 THEN Boucle2 

PRINT#1,PRO1$ Deconnexion$; 

CLOSE 1 

CLOSE 2 

RETURN 

ErreurChargeMinitel: 

RESUME aChargeMinitel 

Quitter: 

SYSTEM 

rien: 

RETURN 

Test: 

GOSUB LitCar 


«a 


SES 


D 


Traitement 


inversion de l'image 
Conversion Paint/Minitel 





IF C$<>SOH$ THEN RETURN 
GOSUB LitCar 

GOSUB LitCar 

GOSUB LitCar 

GOSUB LitCar 

IF C$<>EOT$ THEN RETURN 
PRINT#1,Chainelmagef; 
Envois=19 

RETURN 

LitCar: 

C$=INPUT$(1,2) 

RETURN 


Lorsque qu'une image est sélectionnée, 
votre correspondant dispose de 20 
secondes — à partir du moment où il 
entend la porteuse (signal aigu) — pour 
appuyer sur la touche Connexion de 
son Minitel. Il commencera alors à 
recevoir l'image dans la seconde qui 
suit la connexion. Attention : le 
Minitel émetteur doit être 
‘retournable’ (Type 1B). 


Sur la disquette d'accompagnement, 
l'application correspondante s'appelle 
Envoi Vidéotex. 


Programme Basic 


L'application Paint + Minitel, que 
l'on peut trouver sur la disquette 
d'accompagnement du numéro 33, est 
écrite avec la version 3.0 du Basic 
Microsoft et compilée avec le 
compilateur du même nom. Si vous 
n'avez pas ladite disquette 
d'accompagnement et voulez utiliser le 
programme avec l'interpréteur, Paint 
+ Minitel fonctionnera mais, bien 
sûr, beaucoup plus lentement. D'autre 
part, nous avons utilisé la possibilité 
de IF... THEN... ELSE IF... ENDIF 
de la version 3.0 qui n'est pas tolérée 
par les versions antérieures ; si vous 
êtes munis d'une de ces versions, il 
vous faudra donc faire quelques 
menues adaptations. Ainsi, par 
exemple : 

MiseAJour : 

IF DrapeaulInvert THEN 


BUT (0,0),TableauMAJ, PRESET 
ELSE 
PUT (0,0),TableauMAJ,PSET 
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END IF 

RETURN 

deviendra : 

MiseAJour: 

IF DrapeaulInvert THEN PUT 
(0,0) ,TableauMAJ,PRESET 
ELSE PUT(0,0),TableauMAY, 


PSET 
RETURN a 


Programme 
‘Paint -> Minitel’ 
Basic Microsoft 3.0 











* le symbole ' indique la continuité de la ligne. 


PRO AOK DE DK PHONE DK DK PR ORDRE ÉD D D ORDRE DH OH HO OK KO OK HO 


* Conversion d'images Mac/FullPaint 

* en Images Semi-graphiques Vidéotex 

LES EL ill 221.121): )) 
* Initialisations 

DEFINT A-Y 

DATA &H4E56,&H0000,&H3F2E,&H0008 
DATA &HA936,&HA937,&H4E5E,&H4E75 


DATA &H4E56,&H0000,&H42A7,&H3F2E 
DATA &h0008,&hA9B9,&h2057,&h2E90 
DATA &HA851,&H4E5E,&H4E75 
DATA 0,4,1,5,2,6,3,7 
‘Haut gauche 
DATA 0,3,0,2 
‘haut droit 
DATA 4,7,0,2 
‘milieu gauche 
DATA 0,3,3,6 
‘milieu droit 
DATA 4,7,3,6 
‘bas gauche 
DATA 0,3,7,9 
‘bas droit 
DATA 4,7,7,9 
DIM TableauEntiers(38),TableauMAJ(4801) 
DIM TableauPoints(39,23,5),TableauDensite(7) 
DIM Gris(3),Rectangle(3),T(5),TableauHexa(14) 
DIM DepartX(5),ArriveeX(5), Depart Y(5),ArriveeY(5) 
DIM SupMenus(7),Curseurs(1 0) 
NombreLignes=240 
NombreMots=20 
TableauEntiers(1)=320 
TableauEntiers(2)=1 
TableauMAJ(0)=-320 
TableauMAJ(1)=240 
EOR=10 
top=0 
left=1 
bottom=2 
right=3 
MenuPomme=1 
Montre=4 
Chicago=0 
FormFeed$-CHRS$(12) 
SemiGraph$=CHR$(14) 
Texte$=-CHRS$(15) 


[A TA LIT: S 
Chargement image Paint. 
Chargement & envoi image Minitel. 
Sauvegarde image Minitel. 


Quitter 












Escape$-CHRS$(27) 
FOR i=0 TO 7 

READ SupMenus(i) 
NEXT 


FOR i=0 TO 10 
READ Curseurs(i) 


NEXT 
FOR i=0 TO 7 
READ TableauDensite(i) 


NEXT 


FOR i=0 TO 3 
Gris(i)=&HAA55 
NEXT 
FOR :i=0 TO 5 
READ DepartX(i),ArriveeX(i), Depart Y(i),] 
ArriveeŸ(i) 
NEXT 
FOR i=0 TO 14 
TableauHexa(i)=21i 
NEXT 
A!=VARPTR(SupMenus(0)) 
A! MenuPomme 
MENU 1,0,1," Fichier" 
MENU 1,1,1,"Chargement image Paint..." 
MENU 1,2,1,"Chargement & envoi image Minitel..." 
MENU 1,3,0,"Sauvegarde image Minitel..." 
MENU 1,4,0," " 
MENU 1,5,1, "Quitter" 
MENU 2,0,1,"Traitement" 
MENU 2,1,0,"Inversion de l'image" 
MENU 2,2,0,"Conversion Paint/Minitel" 
MENU 3,0,1,"Pom’s" 
MENU 3,1,1,'© JLB, CP & Éditions MEV / 
— 39.51.24.43" 
WINDOW CLOSE 1 
ON DIALOG GOSUB EventDialogue:DIALOG ON 
ON MENU GOSUB EventMenu:MENU ON 
ON BREAK GOSUB rien: BREAK ON 





RHONE HORDE OCR DK OR PRO DH DHORO ORDR DH DHOH e e HMhe 


* Boucle principale 


Boucle: 
GOTO Boucle 


EventDialogue: 
DIALOG OFF 
GOSUB CurseurMontre 
GOSUB MiseAJour 
DIALOG ON 
INITCURSOR 
RETURN 
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EventMenu: 

MENU OFF:DIALOG OFF 
GOSUB CurseurMontre 
Nmenu=MENU(0) 
Narticle-MENU() 

ON Nmenu GOSUB mFichier,mTraitement,rien 
MENU 
MENU ON:DIALOG ON 
INITCURSOR 
RETURN 
mFichier: 
ON Narticle GOSUB aChargePaint,] 
aChargeMinitel,aSauveMinitel,Arret,Quitter 
RETURN 
aChargePaint: 
GOSUB OuverturePaint 
IF NOT Annuler THEN 

GOSUB PaintBitMap 

MENU 2,1,1 

MENU 2,2,1 

MENU 1,3,0 

END IF 
RETURN 
aChargeMinitel: 
GOSUB ChargementMinitel 
RETURN 


aSauveMinitel: 
GOSUB Sauvegarde 
RETURN 
mTraitement: 
| ON Narticle GOSUB alnversion,aConversion 
RETURN 


alnversion: 
GOSUB Inversion 
RETURN 


aConversion: 
GOSUB CouleurOuNoir 
GOSUB ComptePoints 
RETURN 


ETTLLLLLLLLLLLL. LLL. LL...) 1), ))) 
* Ouverture d'un fichier MacPaint ou FullPaint 
OuverturePaint: 


ON ERROR GOTO ErreurOuverture 
FichierPaint$=FILES$(1,"PNTG") 


GOSUB CurseurMontre 

IF FichierPaint$="" THEN 
Annuler=-1 
GOSUB MiseAJour 
RETURN 

END IF 

Annuler=0 

OPEN FichierPaint$ FOR INPUT AS 1 LEN-512 

CLS 

Drapeaulnvert=0 

IF NOT DrapeauFenetre THEN 


WINDOW 1,"",(96,40)-(416,280),4 
DrapeauFenetre=-1 
END IF 
RETURN 
ErreurOuverture: 
RESUME OuverturePaint 


RHONE HO HN HORREUR DH HE RON KO OR RO RO OK 


* Décodage et affichage de l'image Paint 
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PaintBitMap: 

TotalPoints!=0 | | 
VariableBidon$=INPUTS$(512,1) er — 
PENPAT VARPTR(Gris(0)) SES 
FOR Indice1=1 TO NombreLignes D 


MOVETO 0,Indice1-1 
LINETO 319,Indice1-1 
FOR Indice2=1 TO NombreMots 
TableauEntiers(Indice2+2)=0 

NEXT 
CompteurOctets=0 

BoucleLigne: 
NombreOctets=ASC(INPUTS$(1,1)) 


IF NombreOctets<185 THEN 
VraiNombreOctets=NombreOctets+1 
GOTO CodeDifferents 
ELSE 

VraiNombreOctets=256-NombreOctets+1 
ValeurReport=ASC(INPUT$(1,1)) 
END IF 


FOR Indice2=1 TO VraiNombreOctets 
IF (Indice2+CompteurOctets+1) MOD 2 THEN 
TableauEntiers((Indice2+CompteurOctets+1 \ 
2+2)=TableauEntiers((Indice2+] 
CompteurOctets+1)\2+2) OR ValeurReport 
GOTO FinIndice2 
END IF 


ValeurReportLong!=ValeurReport*256 


IF ValeurReportLong!>32767 THEN 
ValeurReportLong!=ValeurReportLong!-65536! 

END IF 

ValeurReportCourt=ValeurReportLong! 

TableauEntiers((Indice2+CompteurOctets+1 )\2+/ 

2)=TableauEntiers((Indice2+CompteurOctets+ 

1)\2+2) OR ValeurReportCourt 

FinIndice2: 
NEXT 


CompteurOctets=CompteurOctets+VraiNombreOctets 
GOTO SuiteLigne 
CodeDifferents: 

FOR Indice2=1 TO VraiNombreOctets 

CompteurOctets=-CompteurOctets+1 

ValeurReport=ASC(INPUTS$(1,1)) 

IF (CompteurOctets+1) MOD 2 THEN 
TableauEntiers((CompteurOctets+1)\2+2)=f 
TableauEntiers((CompteurOctets+1)\2+2) OR J 
ValeurReport 
GOTO FinIndice2Bis 

END IF 


ValeurReportLong!=ValeurReport*256 
IF ValeurReportLong!>32767 THEN 
ValeurReportLong!=ValeurReportLong!-65536! 
END IF 
ValeurReportCourt=ValeurReportLong! 
TableauEntiers((CompteurOctets+1)\2+2)=[ 
TableauEntiers((CompteurOctets+1)\2+2) OR | 
ValeurReportCourt 
FinIndice2Bis: 
NEXT 
SuiteLigne: 
IF CompteurOctets<72 THEN BoucleLigne 
FOR Indice2=1 TO NombreMots 
TableauMAJ((Indicel -1)*20+(Indice2+1))=f 
TableauEntiers(Indice2+2) 
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FOR Indice3=0 TO 14 
IF (TableauEntiers(Indice2+2) AND / 
TableauHexa(Indice3))=0 THEN 
TotalPoints!=TotalPoints!+1 
END IF 
NEXT 
IF TableauEntiers(Indice2+2)<0 THEN / 
TotalPoints!=TotalPoints!+1 


: PUT(0,Indice1-1), TableauEntiers(1), PSET 
NEXT 
CLOSE 1 
MI#=((TotalPoints!/5760)*27)/30 
PENNORMAL 
RETURN 


ARR HOK KM HRK OH OO OH OK SOMME OR HO 
* Choix du traitement 


CouleurOuNoir: 
WINDOW 2,",(104,300)-(408,332),2 
BUTTON 1,1,"Noir et blanc",(8,7)-(144,25) 
BUTTON 2,1," Nuances grisées",(160,7)-(296,25) 
INITCURSOR 
WHILE DIALOG(0)<>1 
WEND 


IF DIALOG(1)=1 THEN 
DrapeauNoir=-1 
WINDOW CLOSE 2 
RETURN 


ELSE 
DrapeauNoir=0 
BUTTON CLOSE 2 
TEXTFONT Chicago 
MOVETO 8,21 
BUTTON 1,1,'OK",(200,7)-(296,25) 
PRINT "Contraste (1 à 500) :"; 
IF Drapeaulnvert THEN 
BaseContraste$="100" 
ELSE 
BaseContraste$="10" 
END IF 


BoucleContraste: 


EDIT FIELD 1,BaseContraste$,(152,8)-[ 
(180,23),1,3 
WHILE DIALOG(0) 
WEND 
Dialogue-DIALOG(0) 
WHILE Dialogue<>6 AND Dialogue<>1 
Dialogue=DIALOG(0) 
WEND 
Contraste#=VAL(EDITS#(1)) 
IF Contraste#<1 OR Contraste#>500 THEN 
BEEP 
GOTO BoucleContraste 
END IF 
GOSUB CurseurMontre 
WINDOW CLOSE 2 


END IF 
RETURN 


ÉTLILLLLLLLLLLLLLLLSL LL. SL), 
* Rafraîchissement de l'écran 
MiseAJour: 


IF Drapeaulnvert THEN 
PUT (0,0), TableauMAJ,PRESET 


ELSE 
PUT (0,0), TableauMAJ,PSET | 1e] 
END IF un arr 
RETURN CN 


D 


RKKKKKEEEREREREREEREERERÉRERÉÉRLEREREERRERR! 
* Transformation en image Semi-graphique 
ComptePoints: 
OPEN "COM1:1200" FOR OUTPUT AS 1 LEN=512 
PRINT#1,FormFeed$ SemiGraphf; 
PENPAT VARPTR(Gris(0)) 
PENMODE EOR 
TEXTFONT Chicago 
CouleurFondBis=0 
CouleurCaractereBis=0 
Chainelmage$=" 
DrapeauArret=0 
GOSUB FenetreArret 
GOSUB CurseurMontre 
MENU 1,3,1 
ON BREAK GOSUB Arret 
FOR Vertical=0 TO 23 
HIDECURSOR 
FOR Horizontal=0 TO 39 
Rectangle(top)=Vertical*10-1 
Rectangle(left)=Horizontal*8-1 
Rectangle(bottom)=Vertical*10+11 
Rectangle(right)=Horizontal*8+9 
FRAMERECT(VARPTR(Rectangle(top))) 
S=0 
FOR Bloc=0 TO 5 
TableauPoints(Horizontal, Vertical,Bloc)=0 
FOR PointX=DepartX(Bloc) TO ArriveeX(Bloc) 
FOR PointY=DepartY(Bloc) TO | 
ArriveeŸ(Bloc) 
TableauPoints(Horizontal, Vertical, [ 
Bloc)=TableauPoints(Horizontal,[ 
Vertical, Bloc)+ABS(POINT(Horizontal*| 
8+PointX, Vertical*10+PointY)=30) 
NEXT 
NEXT 
IF Bloc=2 OR Bloc-3 THEN 
TableauPoints(Horizontal, Vertical,Bloc)=f 
(TableauPoints(Horizontal, Vertical, Bloc)*3)\4 
END IF 
TBloc)=TableauPoints(Horizontal, Vertical, 
Bloc) 
S=S+T(Bloc) 
NEXT 


IF DrapeauNoir THEN 
CouleurFond=7 
CouleurCaractere=0 
GOTO Suite0 

END IF 


Ecart#=((T(0)12+T(1)12+T(2)12+T(3)12+f 
T(4)12+T(5)12)-(S12)/6)/5 
Ecart#-(Ecart#*Contraste#)/10 
CouleurCaractere=INT((S/6-Ecart#/2)+.5) 
CouleurFond=INT((S/6+Ecart#/2)+.5) 
IF CouleurCaractere>7 THEN | 
CouleurCaractere=7:GOTO Suitel 
IF CouleurCaractere<0 THEN / 
CouleurCaractere=0 
Suitel: 
IF CouleurFond>7 THEN CouleurFond=7:GOTO 
Suite0 
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IF CouleurFond<0 THEN CouleurFond=0 
SuiteO0: 

Caractere=32+(ABS(T(0)>MI#))+2*(ABS(T(1 )>! 

MI#))+4*(ABS(T(2)>MI#))+8*(ABS(T(3)>MI#/ 

))+16*(ABS(T(4)>MI#))+64*(ABS(T(5)>MI#)) 

CouleurFond=TableauDensite(CouleurFond) 

CouleurCaractere=TableauDensite| 

(CouleurCaractere) 

IF CouleurFond<>CouleurFondBis THEN 
PRINT#1,Escape$ CHR$(64+CouleurFond); 
Chainelmage$=Chainelmage$+Escape$+| 

| CHRS$(64+CouleurFond) 
CouleurFondBis=-CouleurFond 

END IF 

IF CouleurCaractere<>CouleurCaractereBis | 

THEN 
PRINT#1,Escape$ CHR$(80+/ 
CouleurCaractere); 
ChaineImage$=ChaineImage$+Escape$+| 
CHR$(80+CouleurCaractere) 
CouleurCaractereBis=CouleurCaractere 

END IF 

PRINT#1,CHR#Caractere); 

Chainelmage$=Chainelmage$+CHRS$(Caractere) 


FRAMERECT(VARPTR(Rectangle(top))) 
IF DrapeauArret THEN 
GOSUB MiseAJour 
Vertical=23 
Horizontal=39 
MENU 1,3,0 
END IF 
NEXT 
NEXT 
PRINT#1,Textef; 
Chainelmage$=FormFeed$+SemiGraph$+| 
Chainelmage$+Texte$ 
WINDOW CLOSE 2 
SHOWCURSOR 
CLOSE 1 
ON BREAK GOSUB rien 
RETURN 











RRERREEERERRRERRÉHREREEEREREERERERÉEREEREREÉ" 
* Enregistrement de l'image semi-graphique 
Sauvegarde: 
ON ERROR GOTO ErreurSauvegarde 
Fichier Minitel$=FILES$(0, "Enregistrer l'image | 
sous :") 
GOSUB CurseurMontre 
GOSUB MiseAJour 
IF FichierMinitel$="" THEN 
Annuler=-1 
RETURN 
END IF 
Annuler=0 
OPEN FichierMinitel$ FOR OUTPUT AS 1 LEN-=/ 
512 
PRINT#1,Chainelmagef; 
CLOSE 1 
NAME FichierMinitel$ AS FichierMinitel$,[ 
“"ImMi" 
RETURN 
ErreurSauvegarde: 
RESUME Sauvegarde 
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* Chargement d'une image Semi-graphique 

* et envoi vers le Minitel e Se) | 

ChargementMinitel: 

ON ERROR GOTO ErreurChargeMinitel 
FichierMinitel$=FILESS$(1,"ImMi") 
GOSUB CurseurMontre 
GOSUB MiseAJour 
IF FichierMinitel$="" THEN 

Annuler=-1 
RETURN 
END IF 
Annuler=0 
OPEN FichierMinitel$ FOR INPUT AS 1 LEN=512 
Chainelmage$=INPUTS$(LOF(1),1) 
CLOSE 1 
OPEN "COM1:1200" FOR OUTPUT AS 1 LEN=512 
PRINT#1,Chainelmagef; 
CLOSE 1 
RETURN 
ErreurChargeMinitel: 
RESUME ChargementMinitel 


É212:::112:11:111::1):):;:;.));;.)..)..)...).)).;) 
* Inversion (noir / blanc) de l'image Paint 
Inversion: 
DrapeaulInvert=NOT Drapeaulnvert 
Rectangle(top)=0 
Rectangle(left)=0 
Rectangle(bottom)=240 
Rectangle(right)}=320 
INVERTRECT(VARPTR(Rectangle(top))) 
RETURN 


ÉTTILLLLLLLLLL LL... ss ss ss)... 
#* Sous-programme divers 
Arret: 
DrapeauArret=-1 
RETURN 
Quitter: 
SYSTEM 


CurseurMontre: 
A!=VARPTR(Curseurs(0)) 
A! Montre 
RETURN 
FenetreArret: 
WINDOVW 2,"",(104,300)-(408,332),2 
TEXTFONT Chicago 
MOVETO 32,21 
PRINT "Pour annuler : " CHR$(17) " - majuscule | 


RRKEEEEEEREREERERERÉEREERÉRÉERÉEERERÉEEEERRÉËÉK 





Vous cherchez 


désespéremment un ordinateur, vous vendez une 
souris, vous avez créé un club ? 






Rendez-vous page 5 PR 
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Hervé Thiriez 


ivrée avec une 
documentation claire et 
bien ficelée de 240 pages 

E 7 et deux disquettes, la 

Hub version de SideKick 

regroupe les accessoires de bureau 

suivants, la taille mémoire en octets 
étant indiquée entre parenthèses : 

«+ Agenda (2 468) calendrier 
mensuel avec des possibilités 
d'entrer des notes pour chaque jour 
et d'afficher un calendrier hebdo- 
madaire ; 

° _ Bloc-Notes+ (10 978) : un mini- 
traitement de texte (inspiration 
MockWrite) qui génère des 
documents en format ASCII et 
comporte des fonctions d'édition et 
de recherche ; 

+  Calculatrice+ (6 020) : une cal- 
culatrice professionnelle multi- 
fonctions avec bande-papier 
témoin imprimable ; 

+ Composeur (2 447) : un compo- 
seur téléphonique ; 

* Heure (1 060) : horloge analogi- 
que (inspiration Big Ben) avec 
aiguille des secondes ; 

+ Idées+ (113 057) : un processeur 
d'idées (inspiration Think Tank) ; 

+  MacPlan (40 139) : un tableur 
avec possibilités graphiques ; 

+ Mémo-Listes (2 433) : quatre 
listes prédéfinies servant d'aide- 
mémoire ; 

° _ ReadyPrinter (7 013) : un spooler 
qui imprime les fichiers ASCII en 
vous laissant l'accès au clavier et à 
la souris ; 

° Terminal (14 224) : programme 
de communication pour modems 
de type Hayes 300, 1200 et 2400 
bauds. Intégré avec Bloc-Notes+ 
pour l'émission, la réception et 
l'édition des données. 










En plus de tout cela, l'application 
SideKick offre une version plus 
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Ts 51-24-43 
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: Editions HE 

Garric, Daniel 

Gassée, Jean-Louis 

Gates, Bill 
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Herz, Olivier 
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riche et plus élaborée des programmes 
de renseignements personnels, de 
composition téléphonique et de 
gestion du temps que ceux fournis par 
les accessoires. 


Enfin, les applications /dées+, 
Configurer Terminal, Copie 
Répertoire, Editeur Mémo-Listes et 
PrintManager vous rendent un certain 
nombre de services complémentaires. 


Nous pouvons regretter qu'il soit 
nécessaire de loger dans le même 
lecteur que le fichier système les 
fichiers de données de SideKick : cela 
peut vite devenir encombrant pour 
ceux qui n'utilisent pas de disque dur, 
surtout si on tient compte de la place 
prise par les accessoires de SideKick. 


SideKick est avant tout un outil de 
communication. En effet, dès l'appel 
du programme, une fenêtre apparaît 
(voir copie d'écran), où l'on voit que 
l'aspect communication domine, ne 
serait-ce que géographiquement. 


Un bon exemple de convivialité : un 
clic sur un nom dans la zone 





Répertoire affiche les données 
relatives à ce nom, un second clic 
réaffiche la liste des noms. Un double 
clic sur un nom ou une fiche fait 
apparaître la totalité de la fiche en 
mode Edition. Mon seul regret à ce 
niveau est que la barre des menus 
disparaît alors, ce qui interdit de 
couper/coller si, par exemple, l'on a 
entré des données au mauvais endroit 
et que l'on cherche à les déplacer. 


L'Agenda 


L'Agenda est bien pratique, surtout si 
vous avez une activité sédentaire et 
gardez votre Mac allumé tout le 
temps. Il semble avoir un problème 
avec les systèmes français (au moins 
en version 4.0) : en effet, dans la 
présentation hebdomadaire, il n'affiche 
pas le nombre des unités pour la date 
du jour, mais seulement le nombre 
des dizaines. Il est regrettable aussi 
que la présentation hebdomadaire ne 
soit possible que pour trois semaines 
(semaine passée, présente et future) : 
on est encore loin de la flexibilité 
offerte par ce merveilleux outil rétro 
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qu'est l'agenda papier ! 
Bloc-Notes 


Cela ressemble parfaitement à 
MockWrite, avec la possibilité de 
rechercher (mais pas de remplacer). 


Idées+ 


C'est en fait un Think Tank plus 
qu'un More. Toute rubrique peut être 
ouverte et développée en un texte 
complet : très agréable. Au chapitre 
des imperfections : le remplacement 
avec intervention manuelle semble ne 
pas marcher du tout (pire, il ajoute 
purement et simplement le texte de 
remplacement là où se trouve le 
curseur), sauf s'il est systématique ; 
et, dans ce cas, il va seulement du 
curseur à la fin du texte sans faire un 
tour complet de celui-ci. 


Si MacWrite 4.6 présente 
encore des améliorations, il 
a un côté rassurant par Ia 
pensIanee d'au moins un 


éhode pour obtenir 
e bombe demeure la 


responsable, Ortho 
sembl 


mal, il a été conçue avec 


la Version 4. S.. 





un peu perdu lors 


MacPlan 


C'est uniquement en épluchant la 
documentation que j'ai découvert 
l'existence de fonctions dans MacPlan. 
Celles-ci ne sont pas visibles 
facilement (pas de Coller une 
fonction, de liste des fonctions à 
l'écran ou d'écrans d'aide). Autre 
désagrément : quand on ferme 
MacPlan en ayant oublié de 
sauvegarder le tableau réalisé, celui-ci 
est perdu : il n'y a en effet pas de 
message d'avertissement demandant 
confirmation de la fermeture sans 
sauvegarde, que ce soit après création 
ou après modification. 

La possibilité d'obtenir rapidement un 
graphe est bien agréable, mais le 
mode de titrage est très lourd : on ne 
peut pas, comme dans Excel, 
sélectionner à la fois les légendes et 
les valeurs ; plusieurs étapes sont 
nécessaires pour ajouter à un graphe 
un titre, une légende, et des 
indications sur l'axe des abscisses. 


Mémo-Listes 


Cet accessoire gère quatre feuillets, 
que l'on fait défiler comme ceux du 
Calepin : Alarmes, Cartes de crédit, 
Choses à faire et Dépenses. Il me 
manque, dans Choses à faire, soit la 
possibilité de facilement modifier 
l'ordre des choses à faire (dont 
l'urgence relative varie dans le temps), 
soit celle d'attribuer à chaque chose à 
faire un numéro d'urgence en fonction 
de quoi tout se classe. Je continue 
donc à utiliser Excel à cet effet, 
MacPlan étant incapable de prendre en 
charge ce classement puisqu'il ne 
comporte pas de facilité de tri. 


Fiabilité 


Je me suis trouvé plusieurs fois en 
panne, soit avec des bombes, soit — 
lors de l'appel d'un accessoire — avec 
un curseur totalement bloqué : dans 
les deux cas de figure, bien entendu, il 


ennuis surviennent quand on utilise le 
Switcher : c'est bien malheureux car 
une application comme SideKick est 
normalement faite pour rester 
disponible à tout moment en 
arrière-plan grâce à un outil tel que le 
Switcher. Ainsi, pour la rédaction de 
l'article, j'avais MacWrite et SideKick 
en parallèle grâce au Switcher ; et j'ai 
rapidement appris à effectuer une 
sauvegarde avant chaque nouvel essai 
d'un accessoire ou de l'application 
SideKick. 


Conclusion 


En conclusion, SideKick 2.0 est un 
produit sérieux, bien documenté, et 
avec des possibilités attrayantes, mais 
comportant quelques problèmes de 
finition. Ce que je lui reproche le 
plus, Borland n'y pouvant vraiment 
rien, c'est de ne pas pouvoir l'utiliser 
sur un Mac portable et fonctionnant 
sur batteries, qui m'accompagnerait 
dans tous mes déplacements. En effet, 
un agenda — par exemple — doit être 
toujours accessible. C'est pourquoi je 
vois bien SideKick utilisé par les 
personnes travaillant à poste fixe : un 
excellent outil pour sédentaire, Un de 
mes amis, ayant un Mac au bureau et 
un à la maison, me dit qu'il s'en sert 
souvent à condition de toujours garder 
sur lui la disquette avec les fichiers 
SideKick : certes, c'est une solution 
possible, mais qui n'est pas d'une 
grande simplicité ! 


Au chapitre de la francisation du 
logiciel, on peut regretter que les 
raccourcis n'aient pas été adaptés : 
utiliser F (Find) pour Rechercher et N 
(Next) pour Suivant n'est pas 
vraiment convivial. Il semble aussi 
que le logiciel original n'ait pas bien 
respecté les normes de programmation 
indiquées par Apple aux développeurs, 
ce qui expliquerait le bug de l'agenda, 
où le chiffre des unités manque dans la 
présentation hebdomadaire. 





En ‘bonus’ sur la disquette Pom's Mac 33, nous avons placé un 
‘Coucou’ somptueux écrit par notre ami et collaborateur Alain 
Bohec. Il affiche, outre l'heure, la date et la fête du jour. Si vous 

émarrez votre Macintosh avec la disquette en question, le 


| 





coucou sera lancé automatiquement et, dans ce cas, il 
vous faut savoir qu'il est nécessaire d'appuyer sur la 
touche ‘F' (comme Finou Finder) pour en sortir. Signalons 
aussi qu'une pression sur la souris fait sortir le coucou ! 
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e système de dossiers et 
fichiers hiérarchisé du 
Macintosh Plus est net- 
# tement plus pratique que 
€ l'ancien système MES. 
De même, le disque dur est intéressant 
pour le nombre important d'ap- 
plications et de documents qu'il peut 
contenir. Le problème est de retrouver 
l'application dont on a besoin, en 
particulier lorsqu'on a l'habitude de 
travailler avec les dossiers, sous- 
dossiers, sous-sous-dossiers..…., ou 
lorsque plusieurs personnes utilisent 
le même disque dur, chacune ayant ses 
propres dossiers. 





Deux solutions s'offrent alors : 

+ dupliquer l'application dans chaque 
dossier où elle s'avère nécessaire, 
ce qui prend inutilement de la 
place ; 

+ faire la recherche manuelle de 
l'application, en prenant soin de 
revenir dans le bon dossier lors de 
l'enregistrement. 


Pom’s vous propose une troisième 
solution qui consiste en une petite 
application — ‘'Appl Search — de 
quelques kilooctets seulement, donc 
dupliquable sans perte importante de 
place. 

La première fois, elle vous propose de 
choisir une application, et par la suite 
elle cherche cette application sur un 
des disques connus par le Mac (en 
ligne), y compris les disques en HFS, 
et la lance si elle l'a trouvée. 


Vous pouvez renommer 'Appl Search' 
à votre guise et, en particulier, lui 
donner le même nom que l'application 
cherchée puisque : 

+ la recherche se fait à la fois sur le 
nom et sur le créateur (signature 
comme, par exemple, "Ta2n' pour 
InterPom’s) ; 

° il n'est possible de choisir que des 





Georges Zwingelstein 


(M 


d'application 


Recherche et ouverture automatique 


Uous avez appuyé sur la touche & en m'ouvrant. 
Vous allez pouvoir changer l'application que je cherche 


et ouvre d'habitude. 


G. Zwingelstein 


SENTIER 


applications ayant un créateur (ce 
qui est le cas de la grande majorité 
des applications intéressantes) ; 
*__‘Appl Search' n'a pas de créateur. 
Il n'y a donc pas de risque de bouclage 
avec une autre application du type 
"Appl Search' se trouvant dans un 
autre disque ou dossier. 


Si vous désirez changer d'application 
par la suite, il suffit d'appuyer sur la 
touche commande au moment du 
lancement de ‘Appl Search’. Il vous 
sera proposé le choix d'une nouvelle 
application. Si vous annulez ‘Appl 
Search' redeviendra comme lors de sa 
première utilisation. 


Afin que la recherche soit la plus 
rapide possible, il est conseillé de 
mettre les applications dans un des 
premiers dossiers dans l'ordre 
alphabétique. En effet, la recherche 
dans les dossiers se fait suivant cet 
ordre. 


Note : il existe des applications qui 
modifient certaines procédures du file 
manager. Celles-ci font alors la 
recherche d'un fichier dans tous les 
dossiers et sous-dossiers des disques 
formatés en HFS, et permettent alors 
à certaines applications non 
compatibles avec ce système de 
fonctionner quand même. Nous 





connaissons en particulier HFSOpen' 
dont les modifications de recherche 
automatique sont commandées par la 
touche option. Avec les modifications 
de cette application, ‘Appl Search’ 
peut donner une erreur système si la 
touche option est enfoncée, car la 
recherche dans le HFS se fait même 
avec la fonction PBHGetFInfo, ce qui 
n'est pas normal puisqu'une 
application utilisant cette fonction est 
sensée fonctionner en HFS. Donc, ne 
pas appuyer sur la touche option lors 
du lancement de ‘Appl Search’, ou 
bien appuyer jusqu'au lancement 
effectif de l'application recherchée. 


Fichier 
‘Appl Search.Link’ 


; le résultat sera baptisé ‘Appl Search 
; (par défaut) 


; commence par le fichier .Rel 
Appl Search 


; ajoute maintenant les ressources 
/include Appl Search.rsrc 


; terminé. 
IEnd 
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Fichier 
‘Appl Search.Job' 


Asm  ApplSearch.Asm Exec Edit 
RMaker Appl SearchR Exec Edit 


Link Appl Search.Link Finder Edit 


Fichier 
‘Appl Search.R’ 


* le symbole indique la 
continuité de la ligne 


* 


* resource pour l'application Appl Search 


Appl Search.rsrc 


Type ALRT 
128 

50 50 250 450 

128 

4444 


* DITL de la fenetre d'alerte 
Type DITL 

,128 
4 


Button 
170 150 190 250 
OK 


StaticText Disabled 

10 70 50 390 

Recherche et ouverture automatique 
d'application 


StaticText Disabled 
60 10 130 390 
AGATNDAG 


StaticText Disabled 
140 10 160 390 
G. Zwingelstein 


Type DLOG 
,129 
Recherche 
50 50 250 450 
visible NoGoAway 
0 
0 
129 


* DITL du dialog de recherche 
Type DITL 

,129 
4 


Button 
170 150 190 250 
Annuler 


StaticText Disabled 
10 10 50 390 
Je cherche l'application 10. 


StaticText Disabled 

60 10 130 390 

Pour arrêter la recherche et revenir au [ 
bureau, cliquer sur ++ 

le bouton ‘annuler'1 


StaticText Disabled 
140 10 160 390 
G. Zwingelstein 


; resource non purgeable 
Type GNRL 
ip et créateur ,256 (0) 


mn 

; resource non purgeable 
Type STR 

Nom ,256 (0) 


257 (32) 
Je ne sais pas encore quelle application je! 
dois chercher et ouvrir.\0D++ 
Vous aller pouvoir en choisir une. 


,258 (32) 
Vous avez appuyé sur la touche \11 enf 
m'ouvrant.\0D++ 
Vous allez pouvoir changer l'application 
que je cherche et ouvre d'habitude. 


,259 (32) 
Désolé, je ne trouve plus l'application 


,260 (32) 
Désormais, je chercherais et ouvrirais] 
automatiquement l'application 


,261 (32) 
Vous avez annulé. La prochaine fois, jef 
vous demanderais ++ 
quelle application vous désirez ouvrir] 
automatiquement. 


,262 (32) 
ODPour changer d'application, appuyez] 
sur la touche \11 ++ 
en m'ouvrant. 


263 (32) 
Désolé, je ne peux pas lire ce dont j'ai 
besoin; ++ 
je suis hors d'usage! Erreur N° 


,264 (32) 
Désolé, je ne peux pas enregistrer le nomf 


de la nouvelle application.\0D a à 


,265 (32) 
Erreur N° 


,266 (32) 
Le disque est protégé en écriture 


Source 
‘Appl Search.Asm' 


* le symbole ' indique la continuité de la 
ligne 


; programme de recherche et de lancement 
; automatique d'application 


@ Zwingelstein 
include  Traps.D 


include  HFSMacs.txt 
include  SysEqu.D 


include  SysErr.D 

include  FSEqu.D 

include  PackMacs.Txt 

Start JSR InitManagers 


; Lit nom, type et créateur de l'application par 
; défaut 
; Function ReadApplHdles: OSErr; 


CLR -(SP) 
JSR ReadApplHdles 
MOVE  (SP)+,D0 
BEQ @1 
; Erreur lecture ressources 


; Procédure ShowAlert(StriD1, StriD2, StriD3: 
; Integer; ErrNum: Integer); 
MOVE  #263,-(SP) 

-(SP 


CLR 
CLR -(SP) 
MOVE  D0,-(SP) 
JSR ShowAlert 
BRA Fin 
; Teste l'appui sur la touche option 


; Function TestKey: Boolean; 

@1i CLRB  -(SP) 
JSR TestKey 
TST.B  (SP}+ 
BEQ noOption 


; Change le nom et le créateur de l'application par 
; défaut 
; Procédure ShowAlert{StriD1, StriD2, StriD3: 
Integer; ErrNum: Integer); 
MOVE  #258,-(SP) 


CLR  -(SP) 
CLR (SP) 
CLR  -(SP) 


JSR ShowAlert 
; Function GetApplHdies: Boolean; 
CLRB  -(SP) 
JSR GetApplHdles 
TST.B  (SP}+ 
BNE me 
; Annulation: efface le nom 
; Procédure SetString{h: Handle; theString: 
Str255); 
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MOVE.L Hits plant -(SP) 
PEA NullString 

_SetString 
BRA 


; le nom existe-t-il ? 
noOption 
MOVE.L  AppINameHdle(A5),A0 
MOVEL  (A0),A0 
MOVE.B  (A0),DO 
BNE aName 


; Pas de nom par défaut : demande un nom 


; Procédure ShowAlert(StriD1, StriD2, StriD3: 


: Integer; ErrNum: Integer); 


MOVE  #257,(SP) 
CLR (SP) 
CLR (SP) 
CLR (SP) 


JSR ShowAlert 
; Function GetApplHdles: Boolean; 


CLRB  -(SP) 
JSR GetApplHdles 
TST.B  (SP)+ 
BEQ Fin ; Annule 
; Enregistre le nouveau nom 
; Function WriteApplHdles: OSErr; 
Cha 
CLR -(SP) 
JSR WriteApplHdles 
MOVE  (SP)+,D0 


BEQ RetourFinder 


; Erreur pendant l'enregistrement 


: Procédure ShowAlert(StrlD1, StriD2, StriD3: 


Integer; ErrNum: Integer); 
MOVE  #264,(SP) 
CMP #wPrErr,D0O 


BNE @1 

; disquette protégée en écriture 
CLR DO 
MOVE  #266,-(SP) 
BRA 2 

; autres erreurs 


@1 CLR -(SP) 

@2 CLR -(SP) 
MOVE  D0,-(SP) 
JSR ShowAlert 
BRA Fin 


RetourFinder 
; retourne au bureau avec message sur 
; l'application choisie 
MOVE.L  AppINameHdle(A5),A0 
MOVE.L  (A0),A0 
MOVE.B  (A0),D0 
BNE @1 
; pas d'application 


; Procédure ShowAlert(StriD1, StriD2, StriD3: 


: Integer; ErrNum: Integer); 
MOVE  #261,(SP) 


CLR -(SP) 
CLR -(SP) 
CLR -(SP) 
JSR ShowAlert 
BRA Fin 

; une application 


; Procédure ShowAlert(StrlD1, StrlD2, StriD3: 


; Integer; ErrNum: Integer); 

@1 MOVE  #260,-(SP) 
MOVE  #256,-(SP) 
MOVE  #262,-(SP) 
CLR -(SP) 


Pom's n° 33 


JSR ShowAlert 
Fin JSR SetWatchCursor 
RTS ; On Quitte 


; I faut chercher et lancer l'application 
aName 
; Procédure HLock(h: Handie); 
MOVE.L  ApplNameHdle(A5),A0 
HLock 


: Procédure HLock{h: Handie); 
MOVEL  ApplTypesHale(A5),A0 
_HLock 


; Cherche l'application 

; Fonction GetApplVRefNum (AppINamePtr: 
:  StringPtr; Types: is 1]of OSType; 
; Var Annule: Boolean): Integer: 

CLR -(SP) 

MOVEL  ApplNameHdie(A5),A0 
(AO),-(SP) 
ApplTypesHdle(A5),A0 
MOVEL  (A0),-(SP) 

PEA Annule(A5) 
JSR GetApplVRefNum 


MOVE  (SP}+,ApplVRefNum(A5) 
BNE  @1 

TSTB  Annule(A5) 

BNE Fin 


; Impossible de trouver l'application sur un des 


: Procédure ShowAler(StriD1, StriD2, SriD3: 
: Integer; ErrNum: Integer); 


MOVE  #259,.(SP) 
MOVE  #256,-(SP) 
MOVE  #262,-(SP) 
CLR -(SP 
JSR ShowAlert 
BRA Fin 

@i 

; Lance l'application trouvée 


JSR SetWatchCursor 
; Function SetVol{volName: StringPtr: vRefNum: 
: Integer): OSErr; 


CLR (SP) 

CLRL (SP) 

MOVE ApplVRefNum(A5),-(SP) 
JSR  SetVol 

MOVE  (SP}+,D0 





Un ‘bug’ du Microsoft 
Basic Compiler 


& 


Si votre compilateur vous affiche, 
sans raison apparente, le mes- 
sage : 

System error 43: 


found 
inutile de chercher une erreur de 


syntaxe dans le fichier source : le 
nom dudit fichier contient très 
probablement un caractère ac- 
centué.… 













File not 









; Procédure Launch 
MOVE  #0,-(SP) 
MOVE.L  ApplNameHdie(A5),A0 
MOVEL  (A0),-(SP) 
MOVEL  SP,A0 
Launch 


; chaîne de longueur nulle 
NullString DC 0 


;  InitManagers 


; Procédure InitAIl; 
; Initalise les managers 
InitManagers 


CLRL (SP) 
[TElnit 


5 SetWatchCursor 


; Procédure SetWatchCursor; 
; Curseur en forme de montre 
SetWatchCursor 
; Function GetCursor(cursoriD: Integer): 
;  CursHande; 
CLRL  -(SP) 
MOVE  #watchCursor,-(SP) 
_GetCursor 
MOVEL  (SP)+,A0 


; Procédure SetCursor(crsr: Cursor); 
MOVE.L  (A0),-(SP) 
_SetCursor 
RTS 


; Function TestKey: Boolean; 
; Teste appui sur la touche option 
TestKey 

LINK A6#-16 


; Procédure GetKeys(var theKeys: KeyMap); 
PEA -16(A6) 
_GetKeys 


; Function BitTst{bytePtr: Ptr; bitNum: 
;  Longint): Boolean; 


CLRB  -(SP) 

PEA -16(A6) 

MOVEL _ #48,-(SP) 

_BitTst 

MOVE.B  (SP}+,8(A6) 

UNLK A6 

RTS Da) 
:  ShowAlert C 1] 
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LLEBLEN 


; Procédure ShowAlert(StrlD1, StriD2, StrD3: 
; Integer; ErrNum: Integer); 
; Affiche la StopAlert d'ID 128 avec message d'ID 
; donné et de No donné (si non nul) 
ShowAlert 
LINK A6,#-268 
MOVEML D3/A3,-(SP) 
_initCursor 
; Numéro de l'erreur 
MOVE  8(A6),D0 
BEQ @i 
; Procédure NumToString{theNum: Longint; var 
theString: Str255); 
EXTL DO 
LEA -256(A6),A0 
_NumTosString 
BRA @2 
@1 CLRB  -256(A6) 
; Prépare les chaînes de l'alerte pour ParamText 
@2 MOVEQ #4,D3 
LEA -268(A6),A3 


; Boucle des chaînes de l'alerte 

@3 MOVE  10(A6,D3),D0 
BEQ @4 

; Récupère la chaîne d'ID donné 

; Function GetString(stringlD: Integer): 

StringHandle; 
CLRL  -(SP) 
MOVE  D0,-SP) 

| _GetString 

MOVEL (SP)+,A0 
MOVEL  A0,(A3}+ 

; prépare pour paramText 


MOVEL  (A0);-(SP) 
; Procédure HLock{h: Handie); 
HLock 


BRA @5 

: chaine vide 

@4 CLRL (A3}+ 
CLRL -(SP) 

; demière chaine ? 

@5 SUBQ  #2,D3 
BPL @3 

; Insère les chaînes dans l'alerte 


; Procédure ParamText{(param0, parami, 
;  param2, param3: Str255); 
; les 3 premiers paramètres sont déjà sur la pile 
PEA -256(A6) 
_ParamText 
; UnLock les chaînes de l'alerte 
MOVEQ  #2,D3 
; Boucle de Unlock des chaînes de l'alerte 
@6 MOVEL  -(A3),D0 
BEQ @7 


; Procédure HÜnLock(h: Handle); 
MOVEL  DO,A0 
_HUnLock 
; demière chaîne ? 
@7 DBRA  D3,@6 
; Affiche la fenêtre d'alerte expliquant l'anomalie 
; Procédure StopAlert(alertiD: Integer; 
:  fiterproc: ProcPrr): Integer; 


CLR -(SP) 

MOVE  #128,-(SP) 

CLRL  -(SP) 

_StopAlert 

MOVE  (SP)+,D0 
; Retour 


MOVEM.L (SP)+,D3/A3 
UNLK A6 
MOVEL  (SP)+,A0 





2 


ADDA  #8,SP | 
JMP (A0) 2 5) | 


; Function ReadApplHdles: OSErr 
; lit le nom et le créateur de l'application par 
; défaut à lancer 


ReadApplHdles 
LINK A6,#0 
; Function GetString{stringlD: Integer): 
StringHandle; 
CLRL  -(SP) 
MOVE  #256,-(SP) 
_GetString 
MOVEL  (SP)+,AppINameHdle(A5) 
BEQ @i 


; Function GetResource(theType: ResType; 
thelD: Integer): Handie; 


CLRL  -(SP) 
MOVEL  #GNRL';-(SP) 
MOVE  #256,-(SP) 
_GetResource 
MOVEL  (SP)+,ApplTypesHdle(AS) 
BEQ @1 

@i 


; Function ResError: OSErr; 
CLR -(SP) 
_ResError 
MOVE  (SP)+,8(A6) 
UNLK A6 
RTS 


GetApplHdies 


; Function GetApplHdles: Boolean; 
: récupère un nom de fichier par le dialogue 
; Standard de SFGetFile 
GetApplHdles 
LINK A6,#-(90) 


; Procédure SFGetFile{where: Point; prompt: 
Str255;fileFilter: ProcPtr; numTypes: 

; Integer; typeList: SFTypeList: digHook: 

;  ProcPir; var reply: SFReply); 


MOVE  #80,(SP) 
MOVE  (SP),(SP) 
CLRL -(SP 
PEA ApplFilter 
MOVE  #1,(SP) 
PEA APPLType 
CLRL  -(SP) 
PEA -74(A6) 
_SFGetFile 
MOVEB  -74+rGood(A6),[8(A6) 
BEQ @1 
; Sauve le nom 


: Procédure SetString{h: Handle; theString: 
;  Str255); 
MOVEL  ApplNameHdie(A5),-(SP) 
PEA -74+rName(A6) 
_SetString 
; Sauve le type et créateur 
; Function GetFinfo{fileName: Str255; vRefNum: 
Integer; var ndrinto:Finfo): OSErr; 
CLR -(SP) 
PEA -74+rName(A6) 
MOVE  -74+rVolume(A6),-(SP) 
PEA -(74+16)(A6) 
JSR GetFinfo 


, 


| SERRE 


@1 


AppType DC 


MOVE  (SP)+,D0 

LEA -(74+16)(A6),A0 
MOVEL  ApplTypesHdle(A5),A1 
MOVEL  (At)Af 

MOVEL  (A0)+(At)+ 
MOVEL  (A0)+,(A1}+ 

UNLK A6 

RTS 


‘APPL' 


; Function App{Filter(paramBlock: ParmBlkPtr): 
: Bookan; 


’ 


: Filtre les applications sans créateur pour 
etFile 


ApplFilter 
SF 8(SP) 
MOVE.L  4(SP),A0 
TST.L  ioFlUsrWds+fdCreator(A0) 
BNE @1 
ST 8(SP) 

@i MOVEL (SP)+,(SP) 
RTS 

: _ WriteApplHdles 


: Function WriteApplHdles: OSErr; marque les 


ressources comme changées (elle seront 

enregistrées en quittant) 

WriteApplHdles 
NK 


LI A6,#0 


Procédure Resource 


(theResource:Handle); 
MOVEL  ApplNameHdie(A5),-(SP) 
ChangedResource 


: Function ResError: Integer; 


CLR  -(SP) 


_ResError 
MOVE  (SP)+,8(A6) 
@i 


BNE 


; Procédure ChangedResource 


(theResource:Handie); 
MOVEL  AppiTypesHdie(A5),-(SP) 
_ChangedResource 


; Function ResError: Integer; 


CLR (SP) 


BNE 


: Fonction GetApplVRefNum (ApplNamePtr: 


StringPtr; Types: Array[0..1] of OSType; 
var Annule: Boolean): Integer; 


: Cherche le fichier donné avec le type et créateur 
; donné retourne Un volume ou working directory 
reference number ou 0 si non trouvé 


GetApplVRefNum 


LINK A6,#-(IoHVQEISize+8) 
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MOVEML D3-D4,-(SP) 
CLR 20(A6) 


: Initialise dialog d'annulation 


MOVEL 8(A6),A0 
SF (Ao) 


; Function GetString{stringID: Integer) 


StringHandle; 


CLR.L 
MOVE 
_GetString 
MOVEL (SP)+,A0 

MOVEL  A0,-(ioHVQEISize+8)(A6) 


-(SP) 
#262,-(SP) 


; Procédure HLock(h: Handle); 


_HLock 


; Procédure ParamText{paramO, param, 


param2, param3: Str255); 


MOVEL 16(A6),-(SP) 

MOVEL  -(joHVQEISize+8)(A6),A0 
MOVEL  (A0)-(SP) 

CLRL  -(SP) 

CLRL  -(SP) 

_ParamText 


; Procédure HÜnLock(h: Handle); 


MOVEL  -(ioHVQEISize+8)(A6),A0 
HUnLock 


: Function GetNewDialog(dialogID: Integer; 


dStorage: Ptr: Behind: WindowPtr): 
DialogPtr; 
CLR.L 
MOVE  #129,-(SP) 
CLRL  -(SP) 
MOVEL  #-1,-(SP) 
_GetNewDialog 
MOVEL  (SP)+,-(ioHVQElSize+4) [ 
A6 


(SP) 


; met curseur flèche 


_InitCursor 


; Boucle pour chaque volume 


CLR D3 


; Volume suivant 
NextVolume 


; Gestion annulation 
; Function GereAnnule: Boolean; 


CLRB  -(SP) 
MOVEL  A6,-(SP) 
JSR GereAnnule 
TST.B  (SP}+ 

BNE NotFounded 


; Pas d'annulation : volume suivant 


ADD #1,D3 


; Système HFS ? (cf inside Macintosh IV-97) 


TST 
BPL 


FSFCBLen 
SystemHFS 


; Système non HFS 


: Function PBGetVinfo(paramBlock: ParmBlkPtr; 


async: Boolean): OSErr; 


LEA -ioHVQEISize(A6),A0 
CLRL  ioVNPtr(A0) 
CLR ioVRefNum(A0) 
MOVE  D3,joVolindex(A0) 
_GetVolinfo 
BNE NotFounded 
MOVE  joVRefNum(AO),D4 
BRA MFSVol 

; Système HFS 

SystemHFS 


; Function PBHGetVinfo (paramBlock: 


HParmBIkPtr; async: Boolean): OSErr; 
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LEA -ioHVQEISize(A6),A0 
CLRL  ioVNPtr(A0) 

CLR ioVRefNum(AO) 
MOVE D3,ioVolindex(A0) 
_HGetVinfo 

BNE NotFounded 


; volume HFS ou MFS (ou autre) ? 


MOVE  ioVRefNum(AO),D4 

CMPI #SigWord,ioVSigWord(A0) 

BEQ MFSVol 

CMPI  #TSigWord,ioVSigWord/ 
A0) 

BEQ HFSVol 

BRA NextVolume 


: Cherche l'application sur le volume MFS volume 
MFSVol 

: Function FindAppl{theVRefNum: Integer): 
OSErr; 


CLR -(SP) 
MOVE  D4,(SP) 
MOVEL  A6,-(SP) 
JSR FindAppl 
TST (SP}+ 

BNE NextVolume 
BRA Founded 

; HFS volume 


HFSVol 


; Fonction FindApplWDRefNum (io VRefNum: 
Integer: ioDirlD: Longint): Integer; 








d'écran 
Minitel, n° 27 


Paru il y a un an, notre programme Minitel du 
n° 27 semble avoir encore beaucoup de 
succès. Vous êtes cependant nombreux à 
‘buter' sur le mode Copie d'écran. Voici 
résumée la procédure d'enregistrement : 














1 mettre l'ordinateur en mode réception de 
copies d'écran ; 

2 depuis le Minitel, consulter les pages 
Vidéotex ; 

lorsqu'un écran doit être enregistré sur 
l'ordinateur et seulement lorsqu'il est 
affiché sur le Minitel, presser RETURN 
(sur l'Apple //) ou cliquer Réception de 
copies (sur le Macintosh) ; 

faire FNCT-I suivi de F (le Minitel doit 
être doté de la touche FNCT). 


Reprendre à la phase 3 pour chaque nou- 
velle page : les phases 3 et 4 doivent 
s'enchaîner sans changer de page Minitel. 

Si vous avez le serveur envoie le message 
Caractère ";" erroné, faites FNCT-P suivi de 
I, au début de l'ensemble des copies d'écran. 


Copies 








CLR 


-(SP) | 

MOVE  D4,-(SP) 2 + 
MOVEL  #2,-(SP) Gouin 
MOVEL  A6,-(SP) == 
JSR FindApplWDRefNum es 
MOVE (SP)+,D4 
BEQ NextVolume 

Founded 
MOVE  D4,20(A6) 

;Fn 

NotFounded 


; Procédure DisposDialog (theDlalog: DialogPtr); 
MOVEL  -(ioHVQEISize+4)(A6),[ 
-(SP 


_DisposDialog 
MOVEM.L (SP)+,D3-D4 
UNLK A6 
MOVE.L  (SP)+,A0 
ADDA  #12,SP 
JMP (A0) 

:  FindAppl 


; Function FindAppi(theVRefNum: Integer): 

: OSErr:; 

: Cherche existence de l'application donnée sur 
; volume MFS 

; Il! Attention : Fonction interne à la Fonction 

; GetApplVRefNum donc pointeur sur variable 


; locale en plus sur la pile 
FindAppl 
LINK A6,#-ioFQEISize 


; Function PBGetFinfo{paramBlock: ParmBlkPtr; 
async: Boolean); OSErr; 


LEA -oFQEISize(A6),A0 
MOVEL  8{A6),A1 
MOVEL  16(A1),ioFileName(AO) 
MOVE  12(A6),ioVRefNum(AO) 
CLR ioFileType(AO) 
CLR ioFDirindex(A0) 
_GetFilelnfo 
MOVE  D0,14{A6) 
BNE @2 

; Check type et créateur 

; Function Ckeckinfo (fndrinfo:Finfo): Boolean 
CLRB  -(SP) 
PEA ioFIUsrWds(AO) 
MOVEL  8{A6),-(SP) 
JSR Checkinfo 
TST.B  (SP)+ 
BNE @2 

; Pas le bon type (File not found) 


@1 MOVE  #infErr,t4(A6) 

@2 UNK A6 
MOVEL (SP)+,A0 
ADDA  #6,SP 
JMP (A0) 


:  FindApplWDRefNum 


; Fonction Fin dAppWDRefNum (ioVRefNum: 

: Integer; ioDirlD: Longint): Integer; 

: Cherche existence de l'application donnée sur 
: volume HFS et retourne le working directory 
; reference number le contenant ou 0 sinon 

; Il Attention : Fonction interne à la Fonction 

; GetApplVRefNum donc pointeur sur variable 
; locale en plus sur la pile 

FindApplWDRefNum 
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LINK. A6,#-ioHFQEISiz 
CLR 186) 


; Function PBHGetFinfo (paramBlock: 


HParmBlkPtr; async: Boolean); OSErr; 


LEA -ioHFOEISiz(A6),A0 

MOVEL  8(A6),A1 

MOVEL  16(A1),ioFileName(A0) 

MOVE  16(A6),ioVRefNum(A0) 

CLR ioFDirindex(A0) 

MOVEL  12(A6),ioDirlD(AO) 
Info 


BNE @t 


; Check type et créateur 
; Function Ckeckinfo (fndrinfo:Finfo): Boolean 


CLRB -(SP) 
PEA  ioFlUsrWds(AO) 
MOVEL 8(A6),-(SP) 


JSR Checkinfo 
TST.B  (SP}+ 
BEQ @1 
; Bon type et créateur 


; Function GetWDRefNum (VRefNum: Integer; 


WDDiriD: Longint): Integer; 


CLR  -(SP) 

MOVE  16(A6).(SP) 

MOVEL  12(A6).(SP) 

JSR  GetWDRefNum 

MOVE (SP TAG 
3 


@1i LEA -oHFQEISiz(A6),A0 
CLRL  ioFileName(AO) 
CLR ioFDirindex(A0) 
MOVE  16(A6),oVRefNum(AO) 
@2 
; Gestion annulaïon 
; Function GereAnnule: Boolean; 
CLRB  -(SP) 
MOVEL  8(A6),-(SP) 
JSR GereAnnule 
TST.B  (SP}+ 
BNE @3 
; Directory suivant 
LEA -ioHFQEISiz(A6),A0 
ADD #1,ioFDirindex(A0) 
MOVEL  12(A6),ioDrDirlD(AO) 
_GetCatinfo 
BNE @3 
BTST  #4,ioFlAttrib{AO) 
BEQ @2 
; Appelle la fonction pour le directory trouvé 


; Fonction FindApplWDRefNum (io VRefNum: 


’ 


@3 


Integer; ioDiriD: Longint): Integer; 


CLR -(SP) 

MOVE  16(A6),-(SP) 
MOVEL  ioDrDirD(AO),-(SP) 
MOVEL  8(A6),-(SP) 

BSR FindAppWDRefNum 
MOVE  (SP}+,18(A6) 


BEQ  @2 
UNLK A6 
MOVEL  (SP)+,A0 
ADDA  #10,5P 
JMP (A0) 

Checkinfo 


; Function Ckeckinfo (fndrinfo:Finto): Boolean 
; Vérifie le type et créateur du fichier 
; H Attention : Fonction interne à la Fonction 


; GetApplVRefNum donc pointeur sur variable 


; locale en plus sur la pile 


Checkinfo 
SF 12(SP) 
Check type 
MOVEL  8(SP),A0 


MOVEL  4{SP)A1 

MOVEL  12{A1)At 

CMPL  (A0}(A}+ 
1 


BNE @ 
CMP.L  (A0}+,(At}+ 
BNE @t 
; bon type et créateur 
ST 12(SP) 
@i MOVEL (SP)+,A0 
ADDA  #8,SP 
JMP (A0) 
: GereAmnule 
; Function GereAnnule: Boolean; 
; Gère les événements pendant la recherche de 
; l'application 


: I Attention : Fonction interne à la Foncion 
: GetApplVRefNum donc pointeur sur variable 
: locale en plus sur la pile 
GereAnnule 
LINK A6,#-{evtBlkSize+6) 


: Annulation déjà effectuée ? 
MOVEL  8(A6),A0 
MOVEL  8(A0),A0 
MOVEB (A0),12(A6) 
BNE  @2 


; Function GetNextEvent (eventMask: Integer; var 
;  theËvent: EventRecord): Boolean; 


@i CLRB  -(SP) 


MOVE  #-1,-(SP) 

PEA -evtBlkSize(A6) 

_GetNextEvent 

TST.B  (SP}+ 

BEQ @2 
; Function IsDialogEvent{theEvent: EventRecord): 
: Bookean; 

CLRB  -(SP) 

PEA -evtBlkSize(A6) 

_IsDialogEvent 
TST.B  (SP}+ 
BEQ @2 


; Function DialogSelect{theEvent: EventRecord; 
; var theDialog: DialogPr; var itemHit: 
: Integer): Boolean; 
CLRB  -(SP) 
PEA -evtBlkSize(A6) 
PEA -(evtBlkSize+4)(A6) 
PEA -(evtBlkSize+6)(A6) 
_DialogSelect 
MOVEL  8(A6),A0 
MOVEL  8(A0),A0 
; Variable d'annulation 
MOVE.B  (SP),(A0) 
MOVEB  (SP)}+,12(A6) 
BEQ @1i 
@2 UNLK A6 


; Function GetWDRefNum (VRefNum: Integer; 
;  WODiriD: Longint): Integer; 








; retourne le working directory reference number 
; du WODirlD ou 0 si erreur 


GetWDRefNum 
LINK A6,#-ioHFQEISiz 
CLR 14{A6) 
LEA -oHFQEISiz(A6),A0 
CLRL  ioFileName(AO) 
MOVE 12(A6),ioVRefNum(AO) 
CLRL  ioWDProciD(A0) 
MOVE.L  8(A6),ioWDDirID(AO) 
_OpenWD 
BNE @i 
MOVE ioVRefNum(A0),14(A6) 
@1  UNLK A6 
MOVEL  (SP)+,A0 


ADDA  #6,5P 
JMP (A0) 
:  GetFinfo 


; Function GetFInfo(fileName: Str255; vRefNum: 
Integer; var fndrinfo:Finfo): OSErr; 
: Récupère les infos du finder pour le fichier 
; donné, sur le volume donné 
GetFinfo 
LINK A6,#-ioFQEISize 
LEA -ioFQEISize(A6),A0 
MOVEL  14{A6),ioFileName(A0) 
MOVE 12(A6),ioV RefNum(A0) 
CLR ioFileType(A0) 
CLR ioFDirindex(A0) 
_GetFilelnfo 
MOVE  DO0,18(A6) 


; Procédure BlockMove(sourcePtr, destPir: Ptr; 
byteCount: Size); 
LEA ioFIUsrWds(A0),A0 
MOVEL  8(A6),A1 
MOVEQ  #16,D0 


_BlockMove 
UNLK A6 
MOVEL  (SP)+,A0 
ADDA  #10,SP 
JMP (A0) 

; SetVol 


; Function SetVol{volName: StringPtr; vRefNum: 
; Integer): OSErr; 
: met le volume ou working directory par défaut 
SetVol 

LINK AG,#-ioQEISize 

LEA -oQEISize(A6),A0 

MOVEL  10(A6),ioVNPtr(A0) 

MOVE  8{A6),joVRefNum(AO) 


_SetVol 
MOVE  D0,14{A6) 
UNLK A6 
MOVEL  (SP)+,A0 
ADDA  #6,SP 
JMP (A0) 

; Variable globales 


ApplNameHdle DS 
AppiTypesHdle DS 


4 
4 
ApplVRefNum DS 2 
CRE. À 


Annule 






















































e fichier: “Basic. 
System” lance éternel- 
, lement l'exécution du 
ÿ fichier Startup s'il le 
trouve dans le 
catalogue principal du volume, ce 
Startup pouvant être aussi bien 
Basic que binaire. Il est simple, 
sinon pratique, de modifier ce 
nom à l'aide d'un éditeur type 
Copy ]I[+, Bag of Tricks, mais la 
manipulation reste inconfortable. 





NewBoot est une modification de 
Basic.System qui permet de 
changer ce nom à volonté : il 
suffit de presser la barre d'espa- 
cement lors du boot. Un écran 
apparaît alors, donnant le nom du 
volume de boot, le nom du 
programme lancé par Basic. 
System et vous proposant 
d'entrer un autre chemin d'accès 
pour le démarrage. 


À ce niveau, entrer simplement le 
nom d'un programme ou bien un 
chemin d'accès complet. Il est 
possible d'indiquer : 
/DISK/DIR1/DIR2/DIR3/DIR4/ 
PROGRAMME 

ainsi le fichier ‘Programme’ situé 
au 5ème niveau du volume sera 
exécuté au démarrage (le préfixe 
sera par la même occasion établi 
au niveau du programme lancé). 


Le programme lancé automa- 
tiquement par Basic.System peut 
également se trouver sur un autre 
volume : lorsque pour quelques 
temps, il est prévu d'utiliser 
fréquemment AppleWorks il 
devient aisé de préciser 
/U3.5/APPLEWORKS/APLWORKS. 
SYSTEM 


Utilisation 


Saisir et sauvegarder BOOT et 
PATCH, mettre ces deux fichiers 
sur le volume comportant le 
Basic.System à modifier, faire : 

- PATCH 

et attendre un instant. 
Maintenant pour changer de 
startup, la barre d'espace 
remplace Copy I[+... 
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New BOOT 


(C) 1987 Patrick Guyou 


Préfixe:/SPDSK 


Boot actuel: STARTUP 


Entrez le chemin du nouveau boot. 


Récapitulation 
BOOT 


Après avoir saisi cette récapitulation 


sous moniteur, vous la sauvegarderez par : 


BSAVE BOOT, A$4800, L1984 


AO FO 35 20 
20 C9 2F FO 
AE 06 20 BD 
FO 04 CA 4C 
CA BD 07 20 
EO 00 FO 03 
3F 4B 20 36 
A9 07 8D F2 


4800:AD 00 CO C9 
4808:58 FC AD 07 
4810:03 4C 47 20 
4818:07 20 2F 
4820:17 48 A0 00 
4828:9D 40 4B C8 
4830:4C 24 48 8C 
4838:49 4C 47 20 
4840:03 A9 48 8D F3 03 49 A5 
4848:8D F4 03 A9 00 A2 FF 9A 
4850:2C 10 20 00 C3 AO 00 
4858:20 34 4A AO 00 20 E3 49 
4860:A0 01 20 34 4A 20 64 49 
4868:A0 01 E3 49 48 A9 OC 
4870:20 5B A9 12 85 24 68 
4878:AE 06 A0 00 B9 07 20 
4880:49 80 20 ED FD C8 CA FO 
4888:03 4C 7D 48 A0 02 20 E3 
4890:49 48 A9 10 8D 89 4A A9 
4898:0D 8D 8A 4A A9 35 8D 88 
48A0:4A 20 8B 4A 68 AD 3F 4B 
48A8:8D 06 A2 00 BD 40 4B 
48B0:38 E9 80 9D 07 20 E8 EC 
48B8:06 20 FO 03 4C AD 48 A9 
48C0:00 9D 07 20 E8 9D 07 20 
48C8:A9 E3 8D 62 4F 20 56 4F 


48D0:20 
48D8:20 
48E0:20 
48E8:D0 
48F0:4C 
48F8:19 
4900:20 
4908:CB 
4910:CC 
4918:4B 
4920:00 
4928:00 
4930:53 
4938:8D 
4940:49 
4948:56 
4950:A2 
4958:00 
4960:02 
4968:70 
4970:01 
4978:FB 
4980:BD 
4988:E8 
4990:49 
4998:00 
49A0:00 
49A8:00 
49B0:00 
49B8:00 
49C0:00 
49C8:00 
49D0:00 
49D8:00 


F4 
56 
E3 
F9 
03 
49 
49 
JF 
Te 
03 
00 
OC 
59 
56 
BO 
49 
FF 
BF 
00 
49 
92 
A9 
93 
EC 
60 
00 
00 
00 
00 
00 
00 
00 
00 
00 


A9 
20 
20 
8B 
00 
1A 
28 
B0O 
BO 
49 
58 
41 
54 
20 
60 
61 
4C 
60 
08 
DB 
48 
85 
49 
49 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


21 
58 
36 
co 
20 
AD 
49 
09 
01 
00 
2F 
53 
45 
00 
01 
49 
47 
49 
20 
20 
A9 
24 
80 
FO 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 





8D 
FC 
4B 
AD 
00 
1E 
20 
20 
60 
08 
00 
49 
4D 
BF 
3F 
20 
20 
BO 
00 
73 
OA 
68 
20 
03 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


62 
A0 
C9 
8B 
BF 
49 
00 
00 
4c 
00 
00 
43 
AS 
C6 
4B 
Lis 
00 
B7 
BF 
49 
20 
A2 
ED 
4c 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


Patrick Guyou 











49E0:00 
49E8:B9 
49F0:06 
49F8:24 
4A00:F0 
4A08:FD 
4A10:EF 
4A18:A8 
4A20:E1 
4A28:4E 
4A30:4D 
4A38:03 
4A40:06 
4A48:85 
4A50:FB 
4A58:F0 
4A60:06 
4A68:11 
4A70:F0 
4A78:5A 
4A80:FF 
4A88:00 
4A90:84 
4A98:A9 
4AA0:F0 
4AA8 :AC 
4AB0:20 
4AB8:FD 
4AC0:C9 
4AC8:C9 
4AD0:C9 
4AD8:E0 
4AE0:4B 
4AE8:C8 
4AF0:4B 
4AF8:4A 
4B00:0D 
4B08:ED 
4B10:03 
4B18:A9 
4B20:48 
4B28:4B 
4B30:CE 
4B38:C0 
4B40:00 
4B48:00 
4B50:00 
4B58:00 
4B60:00 
4B68:00 
4B70:00 
4B78:00 
4B80:00 
4B88:00 
4B90:00 
4B98:00 
4BA0:18 
4BA8:0B 
4BB0:4C 
4BB8:05 
4BC0:A0 
4BC8:05 
4BD0:D0 
4BD8:48 
4BE0:C9 


















































A0 


DO 


4A 
A0 
B1 

06 
11 

FO 
FC 
7E 
OA 
4C 
1E 
84 

07 

06 
85 

ED 
c9 
27 
E6 
FO 
DO 
AC 
20 
EC 
4A 
AD 
4B 
8D 
9B 
A1 

88 
FD 
ED 
DA 
4A 
84 
A9 
DF 
4B 
60 
4B 
DO 
60 
co 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
A0 

05 

DO 
44 

C9 
4C 
0B 
4C 





4BE8:4C AO OC 48 20 E3 49 A0 
4BF0:0B 20 E3 49 68 20 DA FD 
4BF8:20 23 4B 20 36 4B C9 9B 


4C00:F0 06 20 23 4B 4C FB 4B 
4C08:4C 25 4C 48 20 E3 49 68 
4C10:20 23 4B A0 OC 20 E3 49 





Tours Micro-Club.…. 


.…90, avenue Maginot— 37100 
Tours, édite un bulletin bien 
sympathique : “Le p'tit 
pommier international”. Il 
s’agit, selon ses auteurs, du 
premier journal édité en DOS 
3.3 et dont les pages sont 
numérotées en hexadécimal… 
















4C18:20 36 4B C9 9B FO 06 20 
4C20:23 4B 4C 18 4C A9 00 8D 
4C28:94 BF 20 00 BF CC 37 4C 
4C30:B0 07 A9 00 4C 3C 48 01 
4C38:00 4C A0 4B 14 19 AO A0 
4C40:A0 C5 F2 F2 E5 F5 F2 A0 
4C48:E4 A7 CS CE D4 D2 C5 CS 
4C50:AF D3 CF D2 D4 C9 C5 AE 
4C58:AE AE Al A0 00 14 19 C4 
4C60:E9 F3 F1 F5 ES AO FO F2 
4C68:EF F4 FB E7 FB A0 ES EE 
4C70:A0 FB E3 F2 E9 F4 F5 F2 
4C78:E5 AE AE AE Al 00 14 19 
4C80:A0 AO AO A0 AO C5 F2 F2 
4C88:ES5 F5 F2 A0 E4 ES5 A0 F3 
4C90:F9 EE F4 El F8 ES AE AE 
4C98:AE Al AO A0 AO AO 00 14 
4CA0:19 AO AO A0 A0 AO C3 El 
4CA8:F4 El EC EF E7 F5 ES5 A0 
4CB0:E9 EE E3 EF EE EE F5 AE 
4CB8:AE AE Al A0 A0 AO A0 00 
4CC0:14 19 AO AO A0 CE EF ED 
4CC8:A0 E4 E5 A0 F6 EF EC F5 
4CD0:ED ES AO E9 EE E3 EF EE 
4CD8:EE F5 AE AE AE A1 A0 A0 
4CE0:00 14 19 A0 A0 AO A0 A0 
4CE8:A0 C6 E9 E3 E8 E9 E5 F2 
4CFO:A0 E9 EE E3 EF EE EE F5 
4CF8:AE AE AE A1 A0 AO A0 A0 
4D00:A0 00 14 19 AO AO CC El 
4D08:A0 E4 E9 F3 F1 F5 ES5 F4 
4D10:F4 ES5 AO ES5 F3 F4 AO F0 
4D18:EC ES5 E9 EE ES AE AE AE 
4D20:A1 A0 00 14 19 AO AO A0 
4D28:A0 C6 E9 E3 E8 E9 E5 F2 
4D30:A0 F6 ES F2 F2 EF F5 E9 
4D38:EC EC FB AE AE AE Al A0 
4D40:A0 AO A0 00 14 19 AO A0 
4D48:A0 AO A0 A0 A0 AO A0 C5 
4D50:F2 F2 ES5 F5 F2 AO CE DB 
4D58:A0 A4 00 16 20 C1 FO FO 
4D60:F5 








4D68:A0 
4D70:01 
4D78:4C 
4D80:4C 
4D88:4C 
4D90:8D 
4D98:8D 
4DA0:8D 
4DA8 : 8D 
4DB0O:8D 
4DB8:4C 
4DC0:4C 
4DC8:4C 
4DDO:09 
4DD8:4C 
4DE0:4C 
4DE8:4C 
4DF0:4C 
4DF8:4C 
4E00:4C 
4E08:4C 
4E10:4C 
4E18:4C 
4E20:8D 
4E28 : 8D 
4E30:8D 
4E38 : 8D 
4E40:8D 
4E48:8D 
4E50 : 8D 
4E58 : 8D 
4E60:4C 
4E68:4C 
4E70:4C 
4E78:4C 
4E80:4C 
4E88:4C 
4E90:4C 
4E98:4C 
4EA0:4C 
4EA8:03 
4EBO0:CF 
4EB8:A0 
4EC0:F4 
4EC8:F9 
4ED0:FB 
4ED8:06 
4EE0:F4 
4EE8:C5 
4EFO:ES5 
4EF8:A0 
4F00:E5 
4FO08:AE 
4F10:F5 
4F18:F2 
4F20:F2 
4F28:E7 
4F30:0C 
4F38:D2 
4F40:EF 
4F48:EE 
4F50:E2 
4F58:BF 
4F60:29 
4F68:00 


1B 
4C 
4C 
4C 
02 
03 
04 
05 
06 
4c 
4c 
4c 
03 
4C 
4C 
4C 
4C 


4c 
4C 


EE 
A0 
E4 


F2 
A0 
A0 
F2 
16 
E5 
F5 
E3 
EF 
C3 
49 
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Sur la disquette Apple // 


HGR.MNTL ProDOS ou DOS 3.3 (RUN) 
DENSITE Utilitaire pour HGR.MNTL 
DENSITE.S Source Merlin-Pro 
COMPACTEUR ProDOS ou DOS 3.3 (RUN) 
STARTUP.D WPL pour AppleWriter ProDOS 
VARIDATE.D WPL 

INIDATE.D WPL 

INIDATE.D WPL 

DATE TXT contenant la date 
STARTUP.N WPL pour AppleWriter ProDOS 
VARIDATE.N WPL 

INIDATE.N WPL 

CHOIX WPL 

NUMERO WPL 

GLOSSAIRE WPL 

COMMANDE WPL 

RELANCE WPL 

FICHRELANCE TXT exemple 
FICHCOMMANDE TXT exemple 

HEURE WPL pour AppleWriter ProDOS 
Programme ProLOS 


‘Patch’ 


Ce patch fonctionne sur 
Basic.System version 1.1. 
Pour connaître le numéro 
de votre version, renommez 
votre programme de startup 


et bootez. 
10 REM hhtétttttétééttététt tte 
20 REM #* * 
30 REM %* Programme de Patch * 
40 REM * * 
50 REM #* BASIC.SYSTEM # 
60 REM * * 
70 REM hétttttttttétttétét été 
80 REM 
90 D$ = CHRS$ (4) 
100 PRINT D$"BLOAD BASIC.SYSTEM,T 
SYS,A$2000" 


110 PRINT D$"BLOAD BOOT" 

120 POKE 8193,0: POKE 8194, 72 

130 PRINT D$"UNLOCK BASIC.SYSTEM" 

140 PRINT D$"BSAVE BASIC.SYSTEM,T 
SYS,A$2000,L12150" 

150 PRINT D$'"LOCK BASIC.SYSTEM" 

160 HOME 

170 PRINT "OK, C'EST FAIT..." 





La revue Poms est accompagnée optionnellement d'une 
disquette 5,25'140Ko ou3,5"800Ko. En 140K0, Le recto est 
en format DOS, le versoen ProDOS. La disquette 800Ko est 
formatée ProDOS : Veiller à être sous le bon système 
d'exploitation avant d'exécuter un programme. 

Pour pouvoir démarrer directement avec [a disquette 
formatée en ProDOS, y copier Pro DOS (les possesseurs de 
GS Cont sous le nom PS8) et Basic System. Notre téléphone 
en cas de difficultés : (1)39 51 24 43. 





PATCH ProDOS, programme à RUNer 
BOOT.SOURCE Source ProCODE 

BOOT patch 

QD.BIN Objet à exécuter depuis ProDOS 16 
QD.SAMPLE programme exemple (RUN ou -) 
QD.MAIN Source Apw 

QD.SRCE Source Apw 

ONLINE.EXE Objet à BRUNer sous ProDOS 
ONLINE.S Source Merlin-Pro 

CAT & MOUSE Objet à BRUNer sous DOS 3.3 
SOURCE.LISA Source Lisa 

COMMANDE.CLV Bon de commande CalvaCom 
Source BOOT.SOURCE 

Assembleur ProCODE 

: New Boot : 

* (C) 1987 Patrick Guyou 


Version 1.0 


Apple //e+ - Apple //c - Apple //qgs 
* 
£ 65c02 - Assembleur procode 





PNA S + 


CELLES COELELELELLLELELLELLLELLLLLZLLLZZEE. x 


* 


Programme de patch à Basic.system permettant de changer 

le nom du programme ‘"booté' au démarrage du disque. 

Le nouveau boot peut s'effectuer, non seulement à différents 
niveaux du catalogue, mails aussi sur un autre disque. 

Une disquette 5" 1/4 Pourra booter le programme se trouvant au 
5ème niveau d'un disque dur. 


" /DISQUE/DIR1/DIR2/DIR3/DIR4/DIR5/PROGRAMME ", est correct 


NON 


Attention: 


* 


“/DISQUE/DIR/" seule, entrainerait un "FILE TYPE M 
ISMATCH" 


* lors du boot, mais le prefixe serait établi sur "/DISQUE/DIR/". 


* La syntaxe : 


TRANS EQU $06 ‘Pour adressage indirect page 0 
TABV EQU $FB5B :Tabulation verticale 

TABH EQU $24 1 AE me horizontale 

MEM.SD EQU $43 +: slot/drive actif 


COL80 EQU $C300 spâssage en 80 Col. 
ALTOFF EQU $CO0E +: commutateurs caractéres 
ALTSET EQU $Co0F Lg Le 
ALTFL EQU $COIE 

HOME EQU $FC58 efface écran 

COUT EQU $FDED ‘affiche caractére accumulateur 
COUT1 EQU $FDFO 

KBD EQU $C000 touche appuyée 

STROBE EQU $C010 mise à zéro clavier 

MLI EQU $BF00 entrée MLI 

HP EQU $c030 Stimulation haut-parleur 
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ST 





ELLE. 


INP 


* * 


+++: 


PATCH 


DEBUT2 


EXT.PREF 


s1 


STORE 


$1 


EQU $03D0 retour basic 

EQU $FDDA saffiche code hexa accumulateur 
EQU $BF94 è 

EQU $2006 ;adresse ‘'basic.system' 

EQU $2007 é ki: u 

EQU $2047 é D ge 

EQU $03F2 vecteur ‘reset 

MACROS 

Do 0 Le code n'est pas généré 


Syntaxe : TBL Verticale, Horizontale 


:Nom de la macro 
PHA sauvegarde accumulateur 


LDA £.0 ;ler parametre 

JSR TABV ;tabulation verticale 
LDA £.1 :2me parametre 

STA TABH stabulation horizontale 
PLA «restituer accumulateur 
EOM fin de macro 

Macro Input 


syntaxe: INP Tabul. verticale, Tabul. Horizont, Longueur entrée 


MAC :Nom de la macro 
PHA 
LDA £.0 ‘ler parametre 


STA VTAB ;tabulation verticale 

LDA £.1 ;2me parametre 

STA HTAB ;tabulation horizontale 

LDA £.2 ;3me parametre 

STA ENT fixer longueur entrée autorisée 
JSR INPUT ;saut au sous-programme INPUT 
PLA 

EOM ‘fin de macro 


Macro afficher texte 


syntaxe: AFT numero de message 


MAC nom de la macro 

LDY £.0 ‘parametre 

JSR AFFICH saut au sous-programme affichge texte 
EOM ‘fin de macro 


Macro afficher caractéres souris 


syntaxe: AFM numero de message 


MAC snom de là macro 

IDY £.0 ‘parametre 

JSR MOUSE.AFF ;saut au SP affichage caract. souris 
EOM ‘fin de macro 

FIN le code est de nouveau généré 

ORG $4800 


PATCH ORG $4800 


EQU * 

IDA KBD 

CMP £$A0 Barre d'espace appuyée...? 
BEQ DEBUTI soui 

EQU * 

JSR HOME 

LDA CHAINE 

CMP £$2F Est-ce un préfixe...? 
BEQ EXT.PREF Oui 

JMP BOOT :Non on continue 

EQU * 

LDX LCHAINE Extraire préfixe 

LDA CHAINE, X 

CMP £$2F ‘Fin du préfixe 

BEQ STORE oui 

DEX 

JMP $1 

EQU * 

LDY £$00 

DEX 


LDA CHAINE,X 
STA BUFFER, X 


$2 


DEBUTI 


$1 


$2 


53 


$4 


$5 


+: 


SAVE 


M + 


LDA £<DEBUT2 
STÀA RESET 
LDA £>DEBUT2 
STA RESET+I 
EOR £$AS 

STA RESET+2 
LDA £$00 

LDX £$FF 


BIT STROBE 
JSR COL80 
AFM 0 

AFT 0 

AFM 1 

JSR GPREFIX 
AFT 1 

TBL 12,18 
LDX LCHAINE 
LDY £$00 

LDA CHAINE,Y 
EOR £$80 

JSR COUT 


DEX 

BEQ $2 

JMP $1 

AT 2 

INP 16,13,53 
LDA LGENT 
STA LCHAINE 
LDX £$00 

LDA BUFFER, X 


SBC £$80 
STA CHAINE,X 


CPX LCHAINE 
BEQ $4 

JM 53 

LDA £$00 

STA CHAINE, X 


STA CHAINE, X 
LDA £$E3 

STA ACCES 
JSR SETFILE 
JSR SAVE 

LDA £$21 

STA ACCES 
USR SETFILE 
JSR HOME 

13 

BLOQ 
£$8D 

BNE $5 

LDA $C08B 
LDA $CO08B 
JM  $BF03 


MODULE SAVE 


JSR MLI 

HEX C8 

DA  OPEN.T2 
BCS ER2 

LDA REF.1 
STA REF1.1 
STA REF2.1 


WRITE.T2 
ER2 


CLOSE 


Etablir préfixe de boot 
:0n redonne la main à basic.system 


iControler la touche <reset> 


sInitialisation pile 


:Initialisation clavier 


Affichage caractères souris <1> 
Affichage textes 


préfixe courant 
:Tabulation pour affichage du nom du boot 
‘Récupérer la longueur 


:Nom du boot... 
Affichage normal 
Affichage 


‘C'est fini...? 

‘Non... 

‘Affichage texte 

Entrée du nouveau boot 

récupérer la longueur de l'entrée 
;On sauvegarde cette longueur 


:nom du nouveau boot... 


:...remis à sa place 


;tout est bien 14...? 
oui 
‘non 


Déprotéger 
:$1 protection écriture 


Sauver nouvelle version 


Protection 


Vous partez déjà...? 
‘Oui, à la prochaine... 


‘Bye 
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Se $2 RTS 


JSR MLI * BUFFER PREFIXE 
HEX CC Rem 
DA CLOSE .T2 a 
BCS ER2 LPREBUF HEX 00 
RTS PREBUF HEX 00000000000000000000000000000000 
ER2 JMP ERREUR HEX 00000000000000000000000000000000 
< HEX 00000000000000000000000000000000 
KL HEX 00000000000000000000000000000000 
£ HEX 00000000000000000000000000000000 
OPEN.T2 EQU * TABLE OPEN * 
HEX 03 * 
| DA  PATHI tonmmmmmmmmmmmammmmmmmmmmmmmmmmmmmmmmmmmmmmmn 
HEX 0008 * 
REF.1 HEX 00 * ROUTINES AFFICHAGE, ERREURS & INPUT 
* * 
* LAPPPPPPPPEELLLILLILLLLILLLLLL LL LL LL LL LL LL LL LEE 
WRITE.T2 EQU * TABLE WRITE * 
HEX 04 * AFFICHAGE TEXTE 
REF1.1 HEX 00 NN == 
HEX 0020 AFFICH LDA TABLEB,Y ‘Adresse du menu (b) 
HEX 582F STA TRANS 
HEX 0000 LDA TABLEH,Y Adresse du menu (h) 
Le STA TRANS+1 
we LDY £$00 
CLOSE.T2 HEX 01 TABLE CLOSE $1 LDA  (TRANS),Y 
REF2.1 HEX 00 JSR TABV stabulation verticale 
Li INY 
2 LDA (TRANS),Y 
di STA TABH ;tabulation horizontale 
PATH1 STR 'BASIC.SYSTEM';Nom du fichier $2 INY ;caracteree suivant 
is BEQ $5 :255 caracteres affichés 
Li $3 LDA (TRANS),Y 
* MODULE PREFIXE CMP £$8D :Fin de ligne ? 
NW. en BEQ $4 :51 oui on saute ! 
Li CMP £$00 
Là BEQ $6 
* SET PREFIX JSR COUT 
No =" JMP  $2 
SPREFIX EQU * $4 INY :On saute un caractere (8D) 
LDA MEM.SD ;Identifier drive actif BEQ $5 
STA SAV.SD sauvé...! JM $1 
JSR MLI $5 INC TRANS#1 ;incrementation de AH "TRANS" 
HEX C6 JM 53 
DA SPREPAR $6 RTS Retour au depart 
BCS PR.ER Le préfixe est inconnu TABLEB EQU * 
RTS e DFB <ECR.TI, <ECR.T2, <ECR. T3, <MESERO, <MESER1, <MESER2, <MESER 
SPREPAR EQU * 3, <MESER4 
HEX 01 DFB <MESERS, <MESER6, <MESER 7, <MESERB8, <MESER9, <MBYE 
DA BUFFER-1 TABLEH EQU * 
PR.ER EQU * DFB >ECR.TI,>ECR.T2, >ECR.T3,>MESERO, >MESER1, >MESER2, >MESER 
LDA SAV.SD ;Récupérer drive origine 3, >MESER4 
STA UNIT DFB >MESERS, >MESER6, >MESER7, >MESERB, >MESER9, >MBYE 
JSR ONLINE :Retour sur drive origine * 
LDX £$FF sinitialiser pile * 
TXS * AFFICHAGE CARACTERES SOURIS 
JMP BOOT :On redonne la main à basic.system I 
SAV.SD DFB 00 * 
# MOUSE.AFF EQU * 
k LDA ALTFL ‘Commutateur à <1>? 
ONLINE JSR MLI BMI $0 ;:si oui on saute une instruction 
HEX CS STA ALTSET ; Commutateur alt. à <1> 
DA T.LINE $o LDA MTAB,Y ;Pointeur Page 0 (Poids faible) 
BCS ER2 STA TRANS 
RTS LDA MTAH,Y Pointeur page 0 (Poids fort) 
T.LINE HEX 02 STA TRANS+1 
UNIT HEX 00 LDA £$5F ;Inverse 
HEX 0008 STA $32 
Ÿ LDY £$00 
. GET PREFIX x 
Re mm * TABULATION 
GPREFIX EQU * LOVELION AUIDrE Eire OL OO ONE OS Un. ETS TT 
JSR MLI $1 LDA (TRANS),Y :Tabulation verticale 
HEX C7 JSR TABV 
DA GPREPAR NOP 
BCS PR.ER INY 
JSR VPREFIX LDA (TRANS),Y 
RTS STA TABH 
GPREPAR HEX 01 
DA  LPREBUF * AFFICHAGE 
mm Ve — ren 
* $2 INY 
VPREFIX EQU * BEQ $5 
TBL 10,14 $3 LDA £$1B :MouseTEXTon 
LDX £$00 JSR COUT 
$1 LDA PREBUF,X ;affichage préfixe LDA (TRANS),Y ;Caractere a afficher 
EOR £$80 scaractére normal CMP £$8D ‘Fin de ligne ? 
JSR COUT BEQ $4 : 
INX CMP £$00 :Fin de texte ? 
CPX LPREBUF ‘Affiché en totalité ? BEQ $6 : 
BEQ S$2 ‘Oui... JSR COUTI ‘Affichage... 
JMP S$1 ‘Non... JM $2 
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60 


$4 


$6 


MTAB 


MTAA 


$ENCORE 


$SFIN 


BOUCLE 


NOCHAR 


DELETE 


$1 


CURS 


FIN 


$5 ;S1 >= 255 on branche à $5 

$1 

TRANS+1 sIncrementation octet poids fort 
$3 

£$18 :MouseTEXToff 

COUT1 

£$FF :Normal 

$32 


<ECR.S1, <ECR.S2 


* 


>ECR.S1,>ECR.S2 


MODULE INPUT 





00 Longueur entrée 


TABH *Tab.horiz. 
VTAB ‘Recup. tab. vert. 
TABV ‘Tab. vert. 


TABH :Tab.horiz. 
VTAB sRecup. tab. vert. 
TABV ‘Tab. vert. 


COUT 

BLOQ 

£$8D Touche "RETURN" 
FIN 

£$FF «Touche "DELETE" 
DELETE 

£$9B «Touche "ESCAPE" 
SORTIE 

£$88 ;Touche "<--" 
DELETE 

£$Al sCaract.<espace 
NOCHAR 

Ê$FE ;Caract.>que FE 
NOCHAR 

ENT 

BOUCLE 

TABH 

COUT ‘On affiche 

:On stoke À dans le buffer 
CURS ;On reaffiche le curseur 
COUT “ici... 


: XXXX 
# XXXX 
BIP 


HTAB ‘Position 0 pour le curseur? 
$1 si oui alors on sort 
;0n decremente la tab horiz. 


TABH ‘Le curseur recule 

CURS # 

COUT # 

£$AE ;Un point qui efface le curseur 


SORTIE 


DUREE 
HAUTEUR 
BIP 

$1 


$2 


BLOQ 
$1 


LGENT 
BUFFER 


"DRE VON D A à 


ERREUR 


$1 


$2 


$3 


$4 


$5 


$6 


$7 


$8 


$3 


$10 
GEST 


$1 


JMP DEBUTI1 


LDX DUREE 
LDY HAUTEUR 
BIT HP 


BNE $2 


DEC HAUTEUR 
BNE $1 


‘Attente clavier 
LDA KBD 

BPL $1 

BIT STROBE 


HEX 00 

EQU * 

HEX  00000000000000000000000000000000 
HEX 00000000000000000000000000000000 
HEX  00000000000000000000000000000000 
HEX  00000000000000000000000000000000 
HEX 00000000000000000000000000000000 
HEX 00000000000000000000000000000000 


:MESERO 


:MESER1 


£$40 #MESER2 


£$44 #MESER3 


£$45 :MESER4 


£$46 :MESERS 
BNE $6 
LDY £$08 


£$4E :MESER7 


+MESER8 
PHA Code erreur 


saffichage code erreur 
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BCS CPL : Horreur d'erreur!!! HEX 0B4C 


LDA £$00 asc "_' 
JMP  DEBUTI1 HEX 8D 
T.FERMER HEX 01 HEX 0C03 
HEX 00 ASC ‘2! 
CPL JMP ERREUR : on ne s'en lasse pas, ça continue... HEX 8D 
| * HEX O0C4C 
* asc "" 
LA MESSAGES D'ERREUR HEX 8D 
F RE Peer een er RE ENS HEX 0D03 
# ASC '2Z' 
| MESERO HEX 1419 :3 HEX  8D 
ASC " Erreur d'ENTREE/SORTIE...! "; $27 HEX 0D4C 
HEX 00 FL Re 
MESERI HEX 1419 ‘4 HEX 8D 
ASC "Disque protégé en écriture...!"; $2B HEX 0E03 
HEX 00 ASC ‘3 
MESER2 HEX 1419 :5 HEX 8D 
ASC " Erreur de syntaxe...! "; $40 HEX O0E4C 
HEX 00 ASC 
MESER3 HEX 1419 ‘6 HEX 8D 
ASC " Catalogue inconnu...! "; $44 HEX O0F03 
HEX 00 ASC ‘2 
MESER4 HEX 1419 Fr HEX 8D 
ASC " Nom de volume inconnu...! "; $45 HEX OF4C 
HEX 00 asc‘? 
MESERS HEX 1419 :8 HEX 8D 
ASC " Fichier inconnu...! “; $46 HEX 1003 
HEX 00 asc ‘'£z' 
MESER6 HEX 1419 +9 HEX 8D 
ASC “ La disquette est pleine...! "; $48 HEX 104C 
HEX 00 asc vit 
MESER?7 HEX 1419 :0A HEX 8D 
ASC " Fichier verrouillé...! "; $4E HEX 1103 
HEX 00 ASC ‘'2' 
MESER8 HEX 1419 :0B HEX 8D 
ASC " Erreur N° $" HEX 114C 
HEX 00 ASC eu 
MESER9 HEX 1620 *“0C HEX 8D 
ASC "Appuyez sur <ESC>." HEX 1204 
HEX 00 ASC 'LLLLLLLLLLLLLLLLLLLELLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL 
; LLLLLLLLLLLLLLLLLLL' 
a HEX 00 
ECR.S1 HEX O011B ECR.TI1 EQU * 
ASC ‘ZLLLLLLLLLLLLLLLLLLLLLLLL HEX 0324 
HEX 8D i ASC "New BOOT" 
HEX 0218 HEX 8D 
ASC ‘2! HEX 051D 
HEX 8D $ ASC "(C) 1987 Patrick Guyou" 
HEX 0234 HEX 8D 
ASC hr HEX  0A06 
HEX 8D : ASC “Préfixe:" 
HEX 0518 HEX 00 
ASC ‘2 ECR.T2 EQU * 
HEX  8D ‘ HEX 0C06 
HEX 0334 ASC "Boot actuel:" 
ASC n°: HEX 00 
HEX 8D ‘ ECR.T3 EQU * 
HEX 0418 HEX 0E06 
ASC ‘2! ASC "Entrez le chemin du nouveau boot." 
HEX 8D 4 HEX 00 
HEX 0434 MBYE HEX O0A16 
ASC ‘_' ASC "<Return> Pour quitter le programme." 
HEX  8D ‘ HEX 8D 
HEX 0518 HEX 0C16 
ASC '2' ASC "<Ctri-Reset> Pour relancer le boot." 
HEX 8D “ HEX 00 
HEX 0534 * 
1,1. HER AR * 
HEX 8D î = SET FILE INFO 
HEX 0618 #" 
ASC '2' SETFILE EQU * 
HEX 8D ‘ JSR MLI 
HEX 0634 HEX C3 
Pr ER DA TABL1 
HEX 8D BCS ER3 
HEX 071C RTS 
ASC 'LLLLLLLLLLLLLLLLLLLLLLLL" TABL1 HEX 07 
HEX 00 DA PATH1 
ECR.S2 EQU * ACCES HEX E3 
HEX 0903 HEX FF 
ASC ‘'ZLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLEILLLLLLL HEX 0020 
LLLLLLLLLLLLLLLLLLLL * HEX 000000 
HEX 8D HEX 0000 
HEX 0A03 ‘ HEX 0000 
ASC ‘2 ER3 JMP ERREUR 
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l'essai : 


uperMacroWorks est 
un utilitaire destiné 
aux utilisateurs 
d'AppleWorks 1.4, 
leur procurant une 
nouvelle dimension 
> de travail: les 
macro-commandes. Il s'agit 
de permettre l'exécution 
automatique de séquences de 
commandes par la pression 
d'une seule touche : les 
fervents de WPL apprécie- 
ront de retrouver ce qu'ils 
avaient douloureusement 
perdu en abandonnant 
AppleWriter. Notons en 
préambules que — comme 
toujours dans Pom’s — les 
impressions (subjectives ?) 
données ici sont issues de 
l'usage du programme et 


non de celui des 
communiqués de presse. 
SuperMacroWorks est un 


programme des célèbres Beagle 
Brothers. Il est fort heureusement 
complété par un mode d'emploi 
traduit par D. Geystor et 
disponible séparément. 


SuperMacroWorks ne se conçoit 
d'ailleurs que par l'ensemble 
programme, mode d'emploi 
français et disquette ‘bonus’ 
(macros directement éditables 
pour en analyser le 
fonctionnement et éventuellement 
les modifier). 


La mise en œuvre, sans être 
délicate, mérite attention : le 
fichier système de démarrage ne 
sera plus APLWORKS.SYSTEM 


mais SUPER.SYSTEM, le 
bien-nommié. 


La souris 


À l'usage, et peut-être même 
avant d'apprécier les macros- 
commandes, on est séduit par 
l'usage de la souris : cette facette 
justifie à elle seule l'achat ! La 
souris permet le choix dans les 
menus ‘à barres’, permet le 
déplacement dans les textes et 
autres feuilles de calcul, le confort 
est insoupçonnable. Les menus 
‘horizontaux’ du type : 

Voulez-vous vraiment faire cela ? Oui Non 


sont également gérés par la 
souris. 


Luxe supplémentaire, le 
défilement des textes ou de la 
feuille de calcul peut être continu 
par l'action sur le bouton de la 
souris. 

Petit détail — pratique lorsqu'on 
assimile le réflexe —, en traitement 
de textes, le curseur souris se 
déplace comme à l'aide des 
flèches et non comme sur le 
Macintosh. Au bord droit, si la 
souris est déplacée à droite, le 
curseur va au premier caractère de 
la ligne suivante. 


Macro-commandes 


Pour le lecteur qui n'a jamais 
goûté au glossaire et au WPL 
d'AppleWriter, prenons 
l'exemple de la justification d'un 
texte au centre. Avec 
AppleWorks, il faut faire C0 puis 
CN puis Return puis Esc. Grâce à 
SuperMacroWorks, la ‘macro’ C 
est décrite ainsi : 
C:<awp><oa-O>CN<rtn><esc>! 
Le langage utilisé est simple : 





Damien Nould 


c début de macro, on utilise C 
awp macro active exclusive- 

ment en traitement de textes 
oa-0 simule pomme ouverte O 
cN simule la pression de CN 
rtn simule la pression de return 
esc simule la pression de escape 
! fin de la définition 


Maintenant éc suffit à centrer le 
texte. 


Plus subtil, l'inversion de deux 
mots de part et d'autre du curseur 
qui est exécutée instantanément 
par SW, car définie ainsi : 
W:<awp><oa-left><oa-D>I<oa 
-right><left><rtn><oa-righ 
t><oa-right><rtn><left>! 
Autant de commandes qui seraient 
fastidieuses à taper. 


Il est possible d'utiliser les 
macro-commandes fournies 
directement, d'en ajouter et 
d'enregistrer les ajouts ou au 
contraire de ne concevoir une 
macro que pour une utilisation 
temporaire. Si le mot 
‘programme’ revient souvent 
dans un texte, autant le mettre 
‘sous la pomme” en tapant : 


CWprogramme<CTRL-à> 


Les ajouts se font en direct à tous 
moments ou en différé après 
préparation en traitement de 
textes. 


Selon les usages, il est possible 
de concevoir en plus des macros 
fournies, des macros spécifiques 
réparties éventuellement dans 
plusieurs fichiers. À noter que 
lors de la préparation de macros, 
on peut leur affecter un usage : 


+ général ou; 

+ traitement de textes seulement ; 
+ tableur seulement ; 

+ _ base de données seulement. 
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Pour étendre leur potentiel, les 
macros savent exécuter boucles et 
conditions (est-on bien arrivé au 
‘R’ ? par exemple). 


Un exemple ? 


Parmi les macros mises à la 
disposition de l'utilisateur é' 
affiche la date, mais à 
l'américaine : 

Novembre 2, 1987 

Qu'à cela ne tienne, les macros 
pouvant s'appeler mutuellement, 
il suffit de définir : 
5:<awp><sa-'><left><left>< 
left><left><left><del><sa- 
,><sa-w>! 

La date, à la française, s'obtient 
maintenant avec #5, cette macro 
en appelant trois autres : ‘#'?, 
‘é,’ et ‘éw’. Bien entendu, de 
nombreuses autres combinaisons 
pourraient mener au même 
résultat. 








Renonçant à PostScript et aux polices de caractères 
intégrées, des PME optent parfois pour l'imprimante 
LaserJet de Hewlett Packard et non pour la 
Laser Writer d'Apple. 


L'Apple // ne doit pas faire de complexes inutiles car il 
commande sans problème cette machine, comme la 





Une macro est prévue pour 
afficher l'heure (certainement 
pour concurencer le programme 
WPL publié dans ces pages !). 


Parmi les nombreuses possibilités 
qui, combinées, forment de 
véritables programmes, on note 
des commandes pour : 


- reculer à l'espace précédent, 

- rechercher la prochaine 
commande d'impression, 

- rechercher le prochain espace, 

- convertir en majuscule ou en 
minuscule, 

- incrémenter ou décrémenter 
des caractères (de quoi 
concevoir une calculette ?), 

- ‘tracer’ des macros pour les 
contrôler, 

- imprimer la ligne du curseur, 

- utiliser des variables, 

- répéter des macros, 

- attendre la saisie de texte, 

- attendre une seule touche, 

- afficher un message même 
avec des caractères souris,.… 





Laser Writer (voir n° 24 de Pom’s, PostScript). Les 


codes de commandes indiqués ici ne concernent 


toutefois que la LaserJet. 


Configuration nécessaire 


sw 


Pour obtenir le résultat présenté sur les exemples de la 
page 64, il vous faut les éléments suivants : 


° Apple/e; 
Carte Super Série Apple ; 


Imprimante LaserJet ; 


Câble série (analogue à celui de l'Image Writer) ; 


© 
Cartouche de caractères 92286C Internationall off fl [| [] ll l] [| [| 


sw2 
n 


(pour disposer des caractères accentués) ; 
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Comme avec WPL, SuperMacro- 
Works donne un noyau 
d'instructions à enrichir par 
compilation selon les besoins 
(cela fait penser au Forth) : toutes 
les commandes ne sont pas 
prévus mais comme les macros 
peuvent s'appeler mutuellement 


Beagle Bros Inc. 

3990 Old Town ave., Suite 102C 
San Diego, 

CA 92110 USA 

Programme : environ $50 + 
transport (carte de crédit) 


Dimitri Geystor 

Lachenaz 

74350 Cruzeilles 

Tél : 50 44 21 70 

Mode d'emploi français, disquette 
‘bonus’ : 65,00 F . 





Bruno Ribard 


* _AppleWorks 1.4 


La carte SSC 


La carte Super Série Apple doit être configurée 
comme pour l'ImageWriter : 


modem 


terminal 








8 0 HIT ES AU ORNE TN TON TENERNE UN US RO AL NN EP UT EST CE AGREE GE LA ET ET à 


LEE RRREUILEUUEENNL TE 


#11 


CARRE 








Paramètres d'AppleWorks 


Suivre le chemin traditionnel depuis le menu principal 
pour ajouter une imprimante : 

Option Autres activités, puis Spécifier les données 
Imprimante(s), puis Ajouter Imprimante puis Mon 
Imprimante. 


Indiquer alors le nom que vous lui réservez, dans le 
cas présent : ‘LaserJet+’. 


Sélectionner les possibilités suivantes : 


Saut de ligne après CR: oui 
Accepte saut de page: oui 


Arrêt en fin de page : non 
Largeur de chariot : 7,7 pouces 


Carte d'interface : CTRL-I 80N 


Donner les codes d'impression suivants : 


6lignes/pouce : ESC &16D 

8lignes/pouce: ESC &18D 

Début car. gras : ESC (s3B 

Fin car. gras : ESC (s0B 

Début souligné: ESC &dD 

Fin souligné : ESC &dà 

Début indice inf. : ESC &a+37V 

Fin indice inf. : ESC &a-37V 

Début indice sup. : ESC &a-37V 

Fin indice sup. : ESC &a+37V 

8 carac./pouce : ESC (0F ESC (s0S ESC (s10H 
ESC &k15H 

10 carac./pouce : ESC (OF ESC (s0S ESC (s10H 

11 carac./pouce : ESC (OF ESC (s1S ESC (s10H 
ESC &k11H 

12carac./pouce : ESC (OF ESC (s0S ESC (s10H 
ESC &k10H 

15carac./pouce : ESC (OF ESC (s516.6H ESC &k8H 

17 carac./pouce : ESC (OF ESC (s16.6H 


20 carac./pouce : ESC (OF ESC (s16.6H ESC &k6H 


Les densités 8, 10, 12 sont du type Courrier droit et 
autorisent le soulignement, les caractères gras et 
indices. 

La densité 11 est du type Courrier incliné et autorise le 
soulignement et les indices. 


Les densités 15, 17, 20 sont du type Line Printer droit 
et autorisent le soulignement et les indices. 


Remarques 


La configuration présenté ici n'est pas critique : un 
Apple //c (ou tout ordinateur avec sortie série), 
AppleWriter et une Laser Writer peuvent fort bien 


communiquer. 


joe Latiments 5 re ire ‘7 
et gerrezites 
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Bernard Toméno 


ans le numéro 30 
de Pom’s, l'article 
sur Multiscribe 
v 2.0 faisait al- 
lusion à une 
prochaine version 
spécifique du IIGs. 
C'est fait ! 





Styleware Inc. vient de sortir 
Multiscribe GS 2.0 (à $99.95 si vous 
commandez directement : 5250 
Gulfton Suite E, Houston Texas 
77081, U.S.A.), tandis qu'au même 
moment Version-Soft nous crédite de 
GSWrite 2.0 (gratuit avec l'achat d'un 
IIGS). 


Inutile de décrire ces programmes en 
détail : ils n'intéressent que les 
possesseurs d'un GS qui, “par 
définition” ont déjà GSWrite. Or, 
Multiscribe et GSWrite sont très, très, 
semblables : connivence ? Imitation ? 
Peut-être, mais plus probablement 
respect des ‘normes Apple’ par les 
développeurs sur ProDOS 16. 

Ce ne sont toutefois pas des jumeaux 
univitellins, alors penchons nous sur 
les principales différences. 


Ce qui est propre 
à GSWrite 


° écrire en rouge et en noir 
(seulement...) ; 
°_ écrire en sur-ligné rouge, vert. ; 
° écrire en lettres barrées (intérêt ?) ; 
°__ possibilités de définir et conserver 
plusieurs règles de mise en page 
(espacement des lignes, justifications, 
tabulations) et même de les baptiser 
du nom qu'il vous plaira. Très très 
commode ! ; 
° marges et tabulations en 
centimètres et non en pouces (avec 
possibilités de tabulations point par 
point ou bien décimales) ; 
*__redéfinition possible de la taille des 
caractères (de 6 à 32 et non de O0 à 
32 comme le laisse croire un des 


Pom's n° 33 


menus déroulants), ceci en plus des 

options standards (8 - 9 - 10 - 12 - 16 

- 18); 

*__ option d'annulation de la dernière 
saisie ; 

° nombreuses possibilités de 
caractères “supplémentaires” par 

Option + autre touche ; on obtient 

une série de lettre-accent grave, 

lettre-tréma, lettres accolées (œ), 

grecques (Z, B, IT LL), et divers 


symboles. 
Assez curieusement, le manuel est 
muet sur cette remarquable 


possibilité ; il signale en revanche 
l'astuce voyelle précédée de la touche 
tréma ou circonflexe pour obtenir le 
caractère accentué correspondant (on 
peut regretter que les résultats de 
Option + autre touche soient 
‘mnémotechniquement’ parfois peu 
judicieux : Option + S donne B, tandis 
qu’ Option + B donne ‘ !). 
° on peut — enfin — charger des 
images dans le texte (et elles y 
restent visibles en permanence) mais 
uniquement si elles sont au format 
GSPaint. On ne peut écrire ni à coté 
ni sur elles ; elles transitent 
obligatoirement par le presse-papier 
qui est de ce fait ‘neutralisé”. 


Ce qu'apporte 
Muitiscribe GS 


* écrire en couleur, mais pas 
seulement en noir ou rouge 
comme GSWrite : il y a une palette de 
16 couleurs redéfinissables comme 
dans (GSPaint (donc 4096 
possibilités). Ceci étant dit... c'est 
joli à l'écran, mais il est dommage que 
les couleurs des rubans d'imprimantes 
soient encore si tristes et que 
l'impression matricielle soit si lente 
(critique valable pour les deux 
programmes) ; 
° dessiner (mais oui), grâce à un 
mini-éditeur de “shapes” dans le 
style de GSDraw ou de TopDraw : 
diverses figures pleines ou vides 
(rectangle à bords carrés ou arrondis, 
cercles et ovales, lignes) avec 





plusieurs choix pour l'épaisseur du 
trait. Chaque dessin peut être 


indéfiniment agrandi, diminué, 
déplacé, superposé avec d'autres ou 
avec le texte : une belle réalisation ! ; 
°__ charger des images et les mélanger 
avec le texte et avec les mêmes 
possibilités de manipulations que ci- 
dessus, bien qu'il ne soit pas toujours 
facile de respecter les couleurs de 
l'original qui, en revanche, peut 
provenir de GSPaint, DeluxePaint, 
PaintWork, TopDraw (quelques petites 
astuces à connaître, voir le manuel et 
un document-lettre enregistré sur la 
disquette) ; 
* on peut, bien sûr, voir et imprimer 
ensemble textes et images mais, 
quand on dessine, on perd la vue du 
texte et vice versa ; 
° un peu plus de ‘choix standards’ 
que dans GSWrite pour les tailles 
de caractères, et une sous-option 
permettant de faire varier la largeur des 
lettres de 1 point-écran ; 
° 5 options de Style de plus que 
GSWrite (Ombré, Indice et Exposant, 
Majuscules et Minuscules) ; 
+ dernier atout Multiscribe 
reconnaît et charge immédiatement 
les fichiers textes d'AppleWorks (type 
AWP) ; 
° un regret pour finir : alphabet 
strictement américain : impossible 
d'avoir des é à à... même si — petits 
malins — vous permutez avec les 
polices apparemment francisées de 
GSWrite (compatibles, ce qui permet 
de les mélanger : n'en mettez toutefois 
pas trop. cela finit par ‘déborder’ en 
bas de l'écran). 


Alors... à vous de choisir... ou 
attendre la prochaine version : 2.0 
semble signifier version définitive, ce 
qui ne veut pas dire parfaite (en 
insistant bien on arrive à planter le 
soft américain tout autant que le 
français), et ce qui n'interdit pas 
d'espérer une version 3.0 encore plus 


performante. ä 
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Nouvelles 


du front Dé 


Les frères Beagle, de San Diego 
(Californie), plus célèbres que les 
frères Marx chez les Applemaniaques 
pour leurs programmes toujours 
indispensables (GPLE, Pronto DOS, 
Beagle Graphics...) et jamais 
protégés, ainsi que pour leur 
inénarrable sens de l'humour, ont 
trouvé un nouveau propriétaire. Le 
couple Bert et Sharon Kersey, 
fondateur de la société, qui en avait 
assez de diriger une entreprise 
(florissante au demeurant) plutôt que 
de programmer, a revendu la société... 
à son principal concurrent. 


Il faut dire que ce “concurrent”, Mark 
Simonsen, était aussi un de leurs 
amis, un ancien programmeur de 
Beagle, qui avait fondé la société 
Software Touch pour pouvoir 
publier des programmes également 
excellents, également non protégés, 
mais qui entraient en concurrence avec 
des produits Beagle. On ne peut nier 
par exemple que Program Writer, 
d'Alan Bird, surpasse et périme 
GPLE. Le même Alan Bird publiant 
d'ailleurs aussitôt après chez Beagle le 
génial Beagle Compiler, premier 
mais définitif compilateur Applesoft 
sous ProDOS... 


La fusion de Beagle et de Software 
Touch ne peut être qu'une bonne 
nouvelle pour notre bon vieux chien, 
puisque Mark Simonsen a su garder et 
faire collaborer ces deux génies de la 
programmation que sont Alan Bird 
(AutoWorks) et Randy Brandt 
(SuperMacroWorks). Les premiers 
fruits de leur collaboration sont une 
série d'excellents utilitaires pour 
AppleWorks qui, à la différence des 
accessoires de Pinpoint par exemple, 
sont totalement intégrés à 
AppleWorks (voir la rubrique “le 
mange-disques”). 


L'orientation de la compagnie vers 
plus de produits pour les “utilisateurs” 
(et moins pour les bricoleurs et 
programmeurs) est donc confirmée. Il 
serait dommage cependant que Beagle 
renonce au Basic 16 bits et aux 
utilitaires ProDOS 16 que nous 
attendons tous. 


Toujours plus 


Il est inaccep- 
table aujour- 
d'hui de lire 
des rapports ou 
des thèses uni- 
quement com- 
posés de ce 
= texte sec, 
Rs DE même pas pro- 
portionnel, que produisaient les 
machines à écrire de grand maman. 
L'informatique personnelle, c'est la 
publication personnelle, mise en page, 
variée, imagée, et même en couleurs. 
Sur Apple //, c'est Newsroom, 
Certificate Maker, ou le tout 
nouveau SpringBoard Publisher, 
tous de Springboard. Sur GS, c'est 
GSWrite de VersionSoft et 
Graphic Writer de Datapak 
Software, en couleurs et en super 
haute résolution. Pour tous, c'est 
aussi Print Shop de Broderbund. 


Il nous faut donc des images, toujours 
plus d'images. Toutes les disquettes de 
Clip Art pour ces programmes sont 
bonnes, mais il n'y a ni ma photo ni 
ma collection d'estampes érotiques 
malgaches. La solution est connue, 
elle s'appelle numérisation. 
Numériser une image, c'est la réduire à 
un nombre fini de points 
correspondant à la résolution 
graphique de votre machine et 
transcrire ces points en octets qui font 
de très belles “images-machines”, 
images que vous pouvez ensuite 
afficher sur l'écran, travailler avec vos 
utilitaires graphiques et imprimer sur 
votre imprimante. 


Jean-Yves Bourdin 










Il y a deux façons de numériser : soit à 

partir d'une caméra ou d'une image 

vidéo avec une interface spécifique 

(nous en parlerons un autre jour), 

soit. en retournant votre 

Imagewriter, qui, au lieu de recevoir 

depuis votre port série, va émettre vers 

lui les informations nécessaires à la 
reconstitution des images. Deux 
produits nouveaux permettent 
aujourd'hui aux possesseurs d'une 

Imagewriter de remplacer la tête 

d'écriture de leur imprimante par un 

"scanner" qui lit et transmet les 

images mises dans l'imprimante à la 

place du papier. 

— ThunderScan, de Thunderware 
n'est plus le privilège du Mac. La 
version pour //e, //c ou IIGS coûte 
219 dollars ; 

— Scannit, de Jed Design, est 
offert en deux versions : De Luxe 
à 249 dollars ou le nouveau 
Scannit 25 à 179 dollars. 


Le mange disques 


À la récente fête de 
l'Apple // à San 
Francisco, ce ne 
sont pas les 
programmes GS qui ont eu la vedette, 
mais la série des utilitaires 

AppleWorks de Beagle & Software 

Touch. Cette série, appelée 

TimeOut, comprend d'ores et déjà : 

— un correcteur (anglais) avec un 
dictionnaire de 80 000 mots auquel 
vous pouvez ajouter le vôtre, de 
longueur illimitée : TimeOut 
QuickSpell ; 

— un programme qui permet de 
transformer AppleWorks en un 
mini-MacWrite, d'imprimer les 
fichiers AppleWorks avec des 
fontes graphiques de toutes tailles 
(6 à 127 points) et de tous styles, 
et d'y inclure des dessins : 
TimeOut Superfonts ; 

— un grapheur qui crée des graphiques 
directement à partir des fichiers 
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tableur ou base de données 
d'AppleWorks et les imprime : 
TimeOut Graph; 

— un nouveau programme de macros 
pour AppleWorks qui prend la 
succession de SuperMacroWorks et 
AutoWorks. Avec lui AppleWorks 
devient un langage complet, un 
interpréteur de macro-commandes : 
TimeOut UltraMacros ; 

— un utilitaire pour imprimer les 
fichiers du tableur qui dépassent la 
largeur de la page en les retournant 
à 90°, du genre de Sideways : 
TimeOut SideSpead ; 

— un programme qui permet sans 
sortir d'AppleWorks de copier, 
comparer, verrouiller, déver- 
rouiller, effacer tout fichier et de 
faire des copies de disque: 
TimeOut FileMaster ; 

— un ensemble d'accessoires de 
bureau type Pinpoint ou Sidekick, 
permettant d'avoir instantanément 
accès depuis AppleWorks à une 
horloge, un calendrier, un agenda, 
une calculette, un bloc-notes, un 
adresseur d'enveloppes et à 
l'inévitable puzzle : TimeOut 
DeskTools. 


Sous le capot 


La meilleure 
carte accélé- 
rateur pour 
Apple //, et le 
seul accélé- 
rateur pour //c, viennent de sortir. Ce 
n'est d'ailleurs pas une carte, mais une 
puce qui remplace le microprocesseur 
et fait tourner votre machine (][, ][+, 
Ile, //c ou compatible Apple) à 4 
Megaherz, 400% plus vite. Zip 
Chip de Zip Technology n'a pas 
de ‘switches’ (réglages au clavier), ne 
demande aucun slot, est garanti à vie 
et ne coûte que 130 dollars. Bientôt la 
version pour GS. 





Si vous avez un nouveau //c (avec la 
souris en slot 7), ou un GS, ou une 
carte d'extension mémoire type Apple 
dans votre ][+ ou votre //e, et que 
vous n'avez pas encore UN MEGA 
(1024 Ko) sur cette carte, vous vous 
privez de beaucoup de plaisirs et de 
possibilités. Toutes ces cartes ne 
demandent qu'à être remplies par des 
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Rams parfaitement standard 41256 à 
150 nanosecondes qu'on trouve chez 
n'importe quel marchand de 
composants à 30,00 F pièce 
maximum. Il en faut 8 pour 256K0, 
24 (mais achetez-en 25 pour la 
sécurité) pour “gonfler” à 1 Méga un 
//c ou un GS. Le seul effort demandé 
est celui d'ouvrir la machine (éteinte), 
de toucher son alimentation pour se 
débarrasser de l'électricité statique, et 
d'insérer les puces dans les supports 
vides qui les attendent. Pour le GS, 
suivre la documentation remise avec la 
carte d'extension mémoire (attention 
aux “jumpers”). Vous perdez votre 
garantie, et tout cela est à vos risques 
et périls. Mes amis et moi l'avons fait 
quand même. 


Patchworks 


Le patch suivant 
permet aux //c, //e, 
IIGS (mais pas aux 
II+) d'avoir sous 
ProDOS et Basic System 1.1 une 
commande CATALOG qui fait 
automatiquement passer en 80 
colonnes (Puristes, rendez-vous au 
paragraphe suivant...). La commande 
CAT agit comme CATALOG si vous 
êtes en 80 colonnes, mais fonctionne 
comme d'habitude si vous êtes en 40 
colonnes : 
BLOADBASIC.SYSTEM, TSYS, A$2000.1 
CALL-151.1 
3A36 : 20 00 C3 A6 21 CA 8E N 
4323:36 N 42EF:39.) 
BSAVEBASIC.SYSTEM, TSYS, A$2000.1 
- BASIC.SYSTEM-] 
Le caractère “damier” qui termine les 
lignes de traitement de texte dans 
AppleWorks 1.4 a un aspect rétro. 
Pour le remplacer par le moderne 
symbole .1 des caractères souris : 
BLOAD SEG.M1,TO,A$2100,L$2E00, 
B$4CDA-I 
POKE 16759,205 : POKE 17163, 
205 : POKE 19451,205.1 
UNLOCK SEG.M1-1 
BSAVE SEG.M1,TO,A$2100,L$2E00, 
B$4CDA.I 


Les premières versions de 
SuperMacroWorks de Randy Brandt 
chez Beagle Bros, programme génial 
de macro-commandes pour Apple- 


Works, avait un léger bug avec la 
version française 1.4 d'AppleWorks : 
la macro GA empêche de conclure une 
suite de codes dans la définition de 
“mon imprimante”. Comme cette 
macro n'est pas redéfinissable, il faut 
la changer dans le programme. Voici 
comment la remplacer par G_ : 

BLOAD 

SUPER. SYSTEM, A$2000, TSFF.J 

POKE 16503, 223.1 

BSAVE SUPER.SYSTEM, T$FF.] 


Encore une partie 
et j'éteins 





Deux nouveaux jeux marqueront 
l'année 87 sur Apple J[ par la 
nouveauté réelle de leur conception et 
le fini de leur réalisation. 


Portal d'Activision met enfin le 
jeu sur ordinateur à hauteur du cinéma 
ou de la littérature par la qualité et la 
quantité des émotions qu'on éprouve à 
y jouer. Rentré sur terre à la fin du 
21ème siècle après un voyage dans les 
étoiles, vous y retrouvez tout. sauf 
les gens, qui ont disparu. Le jeu 
consiste à comprendre ce qui a pu se 
passer. Vous pouvez le faire en 
interrogeant Worldnet, le réseau 
informatique hyper-performant de cette 
fin de siècle, qui est encore 
partiellement en ordre de marche. 
Vous n'avez pour l'interroger qu'un 
vieux terminal du 20ème siècle, en 
deux dimensions seulement, muni 
d'une archaïque interface clavier, mais 
qui fonctionne encore (ces Apple // 
étaient vraiment increvables). Si vous 
ne lisez pas l'anglais, apprenez-le en 
jouant à Portal. 

Accolades's Comics de Steve 
Keene et d'Accolade a une ambition 
plus modeste, mais la réalise 
parfaitement : celle d'être le premier 
jeu d'aventures et d'arcade qui soit en 
même temps une bande dessinée, un 
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Comics. Vous pilotez effectivement le 
jeu, feuilletez les pages, jouez à cinq 
jeux d'arcade différents, avec la facilité 
de lecture d'une BD. Si vous ne lisez 
pas l'anglais, vous comprendrez quand 
même Accolade's Comics. 


On peut aussi se divertir avec des jeux 
plus classiques : ainsi, si quelque 
dinosaure de vos amis croit encore 
sincèrement à la fable de la prétendue 
“supériorité” de l'Atari sur le GS, 
montrez lui Thexder de Sierra On 
Line, le jeu d'arcade qui fait fureur au 
Japon, sur votre GS. Et si vous 
préférez les jeux à la française, essayez 
Séduction 1 de Froggy 
Software, jeu de rôles qui vous met 
dans la peau d'un séducteur galactique. 


16 bits 
Ça bouge du côté du 


E.4 GS : Apple USA 


T ! distribue gratuitement 
outre-Atlantique de 
nouvelles Roms et une nouvelle puce 
vidéo, qui éliminent pas mal de bugs 
de la version actuelle mais qui semble 
en ajouter : certains disques durs et le 
disque-Ram Speedisk s'en portent mal. 
En fait, Speedisk — par exemple — 
fonctionne avec les nouvelles Roms, 
mais pas avec la version 1.3 de 
ProDOS 16 livrée avec. Il convient 
donc dans ce cas, comme le 
conseillent déjà plusieurs revues 
américaines, de conserver la version 
1.1. Apple distribue également 
gratuitement la dernière version du 
Système (version 2.0), qui occupe 
pratiquement toute une disquette 
800Ko. Nouveautés : 
°  ProDOS 16 Version 1.3 (juste- 
ment...) ; 
° _ ProDOS 8 Version 1.4 (17 Avril 
87) ; 
° _ Loader Version 1.2 ; 
+  Launcher Version 2.0, 
mais toujours Basic System Version 
1.1. Sont ajoutés le Print Manager 
(enfin un outil pour piloter les 


imprimantes), des outils auxiliaires. 


pour QuickDraw, la correction de 
certains bugs de la version 1.1 du 
système ; les outils sont présents sur 
la disquette sous forme compressée, et 
le Loader a été révisé pour permettre le 
chargement de ces fichiers compressés. 


Tout cela est à demander à votre 
revendeur. 


SoftSwitch de Roger Wagner 
Publishing, est à la fois un 
‘switcher’ et une ‘wildcard’ pour le 
GS. Installé comme un accessoire de 
bureau sous ProDOS 16, il permet de 
quitter une application (8 bits 
seulement), de la sauver en mémoire, 
d'en lancer une autre, de la quitter à 
son tour pour retrouver la précédente 
au point exact où vous en étiez resté, 
sans jamais redémarrer. Vous pouvez 
aussi sauver votre mémoire sur disque 
et retrouver des mois après le point où 
vous en étiez, comme avec une 
wildcard. Vous pouvez passer des 
images d'une application à une autre, 
etc. Il gère trois applications 
simultanément. 


Deux points noirs, cependant, pour ce 
programme : d'abord, les applications 
concernées doivent permettre l'accès au 
tableau de bord, et beaucoup ne le font 
pas, à commencer par le Prodos 1.1.1. 
Ensuite, il est muni d'une protection à 
la fois invisible (les disques sont 
copiables et les copies semblent 
fonctionner) et vicieuse (il modifie des 
octets de la Ram de configuration de la 
machine, ceux qui sont conservés 
même quand on l'éteint). 


Saviez-vous qu'un outil de debuging 
est caché dans la Rom de votre GS ? 
Pour avoir accès au Memory 
Peeker, tapez : 

CALL -151. 

0 = el (sortie d'émulation) 

FF/1800x.1 (installation de l'outil) 

G - CTRL - ESC (tableau de bord) 


À lire 


Apple France 
vient de traduire et 
publier un certain 
nombre de livres 
et documentations 
Apple. Toutes les 
publications tech- 
niques Apple sont 
une merveille de 
pédagogie, de clarté et d'exactitude, et 
sont très agréables à lire. Font donc 
désormais partie des indispensables à 
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demander à votre revendeur avant qu'ils 
ne soient épuisés : 


— Manuel de Référence de 
l'Imagewriter II (vous 
n'utilisez pas 10% des possibilités 
de cette excellente imprimante) ; 

— Le Guide des Interfaces 
Apple (indispensable pour 
comprendre le fonctionnement de 
votre port série, ou choisir le bon 
câble pour InterPom’s) ; 

— La Programmation en Basic 
avec ProDOS (un des meilleurs 
ouvrages sur le Basic) ; 

— Manuel de Référence de 
l'Instant Pascal (l'Instant 
Pascal est un outil extraordinaire 
pour apprendre et enseigner le 
Pascal, y compris celui du Mac. 
En revanche, il est inutilisable 
pour développer). 


À lire aussi : les numéros 34 et 
suivants de Pom's. Vous apprendrez 
dans la chronique Apple // for ever : 

° comment mettre un IBM dans 
votre Apple ; 

° comment mettre un Apple dans 
votre IBM ou compatible ; 

* comment utiliser les drives 800Ko 
compatibles Mac sur l'Apple // ; 

+ comment accélérer le chargement 
du système sur GS ; 

° comment transformer un antique 
][+ en station Citizen Band ou en 
labo de physique ; 

* quels langages utiliser sur GS ; 

+ comment piloter la LaserWriter 
avec un //e ou un //c ; 


Accolade 

20833 Stevens Creek Boulevard 
Cupertino — CA 95014, USA 
Activision 

P.0. Box 7286 — Mountain View 
CA 94039 - USA 

Beagle Bros / Software Touch 
3990 Old Town Avenue — Suite 102C 
San Diego — CA 92110 - USA 
Broderbund Software, Inc 

17 Paul Drive — San Rafael 

CA 94903 - USA 

Datapak Software 

14011 Ventura Boulevard — Suite 507 
Sherman Oaks — CA 91423 - USA. 
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Froggy Software Sierra On Line VersionSoft | 


33, Avenue Philippe-Auguste 
75011 Paris — ® 43 58 25 98 


Jed Design, Inc pee 


3300 Central Avenue SE -— Canton 


Ohio 44707 - USA 
MN 55435 - USA 


Roger Wagner Publishing 
1050 Pioneer Way -— Suite P 
El Cajon - CA 92020 - USA 


Thunderware 
21 Orinda Way — Orinda — CA 94563 
USA 








Dans cette rubrique, vous trouvez un reflet de 
l'activité de notre boîte aux lettres (emp11) sur 
CalvaCom. 


4) QUEST N32 -31. 
De: Michel LE PORT (MLP10) - 31 oct 87 18h11 


Pourriez-vous m'indiquer la correspondance des bornes 2 3 7 de 
la prise DB9 avec la prise intérieure 16 briches du Joystick ? 
Merci. 


Voici la correspondance des broches Joystick : 


DB9 INTERNE 

Ce type dinformations se 
trouve dans le Manuel de 
Référence Apple //e' 
disponible chez tous les 
revendeurs Apple. 


© © y Où Or À GC PQ —2 
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3) Pom's 22-31. 
De: Arnaud KOPP (AK24) - 17 sep 87 20h56 


Dans Pom's 22 page 17, vous parlez du programme RENUMBER. 
mais où se trouve-il? 
Arnaud Kopp 


Le Renumber auquel on fait allusion dans le numéro 22 de Pom's 
est un utilitaire qui figure sur la disquette Master DOS 3.3. 
Cette disquette n'est plus aujourd'hui livrée avec les ordinateurs 


5750 France Avenue South 
Suite 123 — Edina — MN 55435 - 


Springboard Software,lnc 
7808 Creekridge Circle - Minneapolis 


94, rue Lauriston — 75116 Paris 
æ 47 27 71 72 


Zip Chip 
11926 Santa Monica Boulevard 
Los Angeles — CA 90025 - USA 


a: 


(ProDOS oblige) mais tous les revendeurs Apple peuvent vous la 
fournir. 


2) Pbm AuxMove - 61. 
De: André KRZELJ (AK14) - 22 sep 87 16h46 téléphonique 


Pour adapter des programmes de l'Apple // au GS, comment faire 
pour remplacer Aux_Move et pouvoir déplacer des blocs dans 
TOUTE la mémoire ? 


Deux méthodes pour remplacer AuxMove : 


1) Vous inspirer de la routine de VB Toméno (Pom's 32 page 10) 
qui est une boucle constituée de : 
AF bbmmhh (LDA adresse sur 3 octets à l'envers, hh = n° page) 
8F bbmmhh (STA adresse sur 3 octets à l'envers, hh = n° page). 
La même méthode a été employée dans Peeks et Pokes longs 
(n° 30). 


2) Le mieux est d'utiliser l'instruction de déplacement de blocs 
MVP. 

MVP banc_départ,banc_destination 

X contenant l'adresse sur 2 octets départ 

Y contenant l'adresse sur 2 octets de destination 

A contenant le nb d'octets à déplacer. 

Faites PHB avant et PLB après pour préserver DB. 


1) AIDE..AIDE...SVP. - 101. 
De: Jean QUINNE (JQ13) - 07 oct 87 10h31 


Bonjour ! 

Ici Jean Quinne de Nouvelle-Calédonie. 

Bien reçu le câble pour transfert fichier entre A2E et Mac, mais 
rien ne marche car. 

Je ne sais pas comment récupérer les fichiers de mon disque dur 
PROFILE qui sont en pascal 1.3 d'une part ; 

je viens de recevoir la revue no 32 ; et à ma grande joie je vois 








Pom's n° 33 69 











que vous décrivez à la page 63 qu'il y a une disquette de 800Ko 
avec un programme UFC. Est-ce que c'est la solution ou une 
petite solution à mon problème. 

Merci et espère avoir une réponse positive…sincèrements. JEAN. 


Inter Pom's fonctionne sous ProDOS et ne peut lire que les fichiers 
ProDOS. Les fichiers Pascal DOS ou CP/M doivent être convertis. 
L'utilitaire Universal File Conversion est vendu par : 

Quality SotfWare 

21610 Lassen Street 

Chatsworth 

California 91311 USA 
par correspondance avec carte Visa au prix de 34,95 dollars. 


Cet utilitaire permet de façon simple de convertir les fichiers entre 
les 4 Dos : DOS 3.3, Pascal, ProDOS (ou SOS) et CP/M. 


2) dBase- 6. 
De: Malik AIT BACHIR (MAB10) - 19 sep 87 08h37 


Bonjour 

Je souhaiterais reprendre des fichiers dBase 2 crées sur Apple 
dans mon PCsur dBase 3. Est -ce possible avec les softs Inter- 
Poms pour des fichiers en CP/M. 

Merci pour votre réponse. 


Les fichiers dBase 2 peuvent être transmis sur l'IBM via 
InterPom's ; toutefois, il devront être convertis sous ProDOS avant 
transmission. 

Bien entendu, il restera à régler les éventuelles différences de 
format entre dBase2 sur Apple et dBase3 sur IBM. 


4) Problème... - 11 1. 
De: Henri PIERME (HP10) - 22 sep 87 19h29 


Bonjour... J'ai acheté le dernier Pom's mais j'ai qq problèmes 
avec le programme Lemouse.. lorsqu'un menu est déroulé il reste 
affiché ? 

Et il y a une erreur d'affichage du 2e menu que je n'ai pas réussi 
à corriger (c'était pire). 

Je tiens à vous préciser que je possède un Apple//e 128ko 65c02. 
Merci 


Effectivement, le programme LeMouse ne fonctionne que sur un 
Ac (comme l'indique la revue). En fait, il ne fonctionne que sur //c 
128Ko, ce programme étant allergique aux nouveaux 384Ko 
(souris en slot 7). 


6) ROUTINE PRODOS COPIE ECRAN - 1 I. 
De: Marius MARTINET (MM68) - 09 oct 87 21h54 


pouvant tourner sur cet appareil. Je suis un nouvel abonné à 
votre revue. 


Votre message est court et nous ne sommes pas sûr de vos 
besoins. 

Pom's a publié dans son numéro 17 un pgm de copie de l'écran 
HGR sur Epson, dans son numéro 18, une copie de l'écran DHGR 
sur ImageWriter et dans son numéro 19, une copie de l'écran 
HGR sur ImageWriter. 


RO MS 
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Dans un prochain numéro, nous publierons un pgm de copie de 
l'écran texte 40 ou 80 colonnes sur toutes imprimantes. 


3) Questions - 11 I. 
De: Patrice DELORME (PD28) - 11 oct 87 19h05 


Bravo votre revue est fantastique. 

Je possède un Apple //c, je voudrais savoir quels sont les 
langages 

Pascal qui fonctionnent sans drive externe. En ce qui concerne 
Instant Pascal est-il suffisant pour développer des logiciels impor- 
tants ou est il restreint à l'apprentissage du Pascal, pouvez vous 
me donner son prix. 

Vous avez publié plusieurs montages électroniques concernant la 
communication (composeur de numéros, cordons minitel, 
détecteur de sonnerie) est-il possible de regrouper ces 3 mon- 
tages en un seul afin de n'occuper qu'une seul prise de l'Apple. 


- Les Pascal d'Apple (1.2, 1.3) se contentent d'un seul lecteur, 
mais quel travail : il faut en permanence changer la disquette, 
parfois pendant l'exécution d'un programme... 

- Instant Pascal permet l'apprentissage et le graphisme mais, 
étant interprété, il est plus lent et convient mal pour des applica- 
tions d'importance. 

Les revendeurs Apple vous conseilleront certainement et sauront 
vous donner des prix. 

Bien entendu, regrouper les montages est chose possible mais en 
tous cas, ils occuperont deux prises : le joystick et la prise 
communication. 


1) Disquette //GS-7 I. 
De: Christian RICHAUME (CROO10) - 05 oct 87 19h26 


J'utilise un IIGS et vos disquettes 3.5. 

Pour les rendre bootables il est nécessaire de faire beaucoup plus 
que ce que vous conseillez : “installer les fichiers Prodos et Basic 
System” 

Une marche à suivre très détaillée semble nécessaire, tout le 
monde n'ayant pas à sa disposition un informaticiende haut niveau 
pour aider !! 

Amicalement C.R. 


Et pourtant, les disquettes Pom's deviennent ‘bootables’ par le 
simple ajout de ProDOS (P8) et Basic.System. Cela suffit pour 
obtenir le curseur et permettre de lancer tout programme. 

Bien entendu, un système réduit tel celui conseillé ne permettrait 
pas à GSPaint de fonctionner (il nécessite ProDOS 16) mais, 
comme ce n'est pas le but... 

En revanche le programme QDBasic de ce numéro est le premier 
programme de Pom's qui nécessite ProDOS 16. 


5) S.O.S. Applewriter Il sur 11 GS: Possibilités. - 10 1. 
De: Jean-Pierre BOULESTEIX (JPB12) - 21 oct 87 19h52 


Bonjour, et merci d'avance pour le “tuyau” qui me serait très 
précieux : 

Je travaille avec un logiciel de communication qui s'appel PROS- 
PECTOR, après avoir “récolté” les adresses sur Minitel je dois les 
retravailler avec un traitement de texte en DOS 3.3. Donc j'utilise 
Applewriter sur mon //e mais il m'arrive d'avoir des disquettes 
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140K pleines et pas lisibles dans leur totalité: la solution étant de 
passer mes fichiers texte sur disk 800Ko. 


Donc sur 1! GS...? que faire, et quel serait l'autre traitement de 
texte DOS 3.3 qui pourrait etre accepté sur Il GS? Merci d'avance, 
et bravo pour l'idée d'être sur Calvacom. À vous lire. 


Pour utiliser un lecteur 800Ko en DOS 3.3, il faut un DOS modifié 
{avec UNIMATE par exemple), mais cela contrarie Apple Writer. 
MagicWindow conviendrait peut-être mais il n'a pas la souplesse 
d'AppleWriter. Convertir les fichiers en ProDOS avant de les traiter 
n'est pas simple non plus. 


Nous ne voyons que le renoncement à Prospector ! : avez-vous 
essayé le programme que nous avons publié dans notre numéro 
30, T.POMS. 

La ‘récolte’ d'adresses se fait dans un fichier ProDOS non limité 
en taille, directement modifiable par AppleWriter (pourquoi pas 
avec une petite routine WPL pour accélérer les choses ?). 





6) Conseil d'achat - 10 1. 
De: David BENSIMON (DB25) - 21 oct 87 20h48 


Juste un conseil à ma revue préférée : 

Possesseur d'un Ile (illustre ancêtre), je bave d'envie devant le 
llgs, mais voilà, le Mac + coûte actuellement le même prix que le 
llgs couleur. 

Conseillerez-vous à un adepte de l'assembleur du 6502, 
possesseur de nombreux programmes et routines. un lIgs, suite 
logique du Ile, ou un Mac + ? 

Deuxième question : L'extension 512k du ligs fonctionne-elle 
comme la carte féline ou est-elle réellement une extension 
mémoire (c'est-à-dire sans commutation de banc mémoire) ? 
Merci d'avance. 


Bonne question ! Réponse bien délicate, mais voici quelques 
éléments de réflexion : 


Mac : 

-  Rapidité du processeur —> souris plaisante à utiliser, gestion 
de l'écran graphique particulièrement agréable ; 

- Ergonomie, souplesse de la gestion de disque ; 

-_ Assembleur 68000 radicalement différent du 6502, c'est un 
autre monde ; 
Pas de possibilité de bâcler une petite routine sous moniteur 
pour un simple essai ; 
En Basic, on peut faire la même remarque : comment 
concevoir un pgm sans gérer événements, fenêtres. 


Apple IIGS : 
- Possibilité de récupérer tous les pgm Apple // ; 
-_ Possibilité de travailler ‘à l'Apple /' (Monieur, Basic, Assem- 
bleur 6502...) ; 
- Le 65816 est le prolongement du 6502, on n'est pas dépaysé, 
même avec 16 bits l'accumulateur, c'est bien rassurant ! ; 
- Pas encore de vrai Basic digne de ce nom (en fait il sera 
bientôt disponible.) ;; 
- Plus nous le pratiquons, plus nous lui trouvons un air Mac : 
Gestion de fenêtres; 
Routines graphiques QuickDraw (voir ce Pom's pour 
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l'utilisation de QuickDraw sous Basic AppleSoft) ; 
ProDOS 16 bien proche du HFS (en fait c'est le HFS qui 


est proche...) ; 
Gestion des événements (souris, clavier, insertion dis- 
quette...) ; 
Faire une application 65816 est aussi complexe qu'une 
application 68000 ; 
Accessoires de bureau ; 
AppleTalk : GSPaint permet de commande la Laser- 
Writer... ; 
- Lenteur du processeur, on voit les icônes se dessiner, la 
souris n'est pas très plaisante (quand on vient du Mac) ; 
- Couleur (mais difficulté de programmation) ; 
Seuls 64Ko sont accessibles depuis le Basic Applesoft, au- 
delà, on commute : les ‘n' mégaoctets ne sont pas en lignes 
mais par page' de 64Ko ; 


Dernier élément : Pom's donnera de plus en plus de pgm aux 
possesseurs de GS (mais sans réduire la place du Mac...) 


Cruel dilemne ! 





4) RECHERHE ADRESSE... - 41. 
De: Jean QUINNE (JQ13) - 22 oct 87 10h53 


Bonjour ici Jumbo Vidéo(JQ13) Quinne Jean 

Connaissez-vous une adresse pour un programme d'astrologie sur 
Mac ? 

Où trouver HyperCard et MultiFinder ? 

Merci et sincères salutations. 


La seule adresse que nous ayons trouvée : 
Decleir Louis 
103/731 Bld de VCalmy 
59650 Villeneuve d'Ascq 
20 43 43 87 
programme écrit en Mégamax C. 


HyperCard et MultiFinder : disponibilité en français paraît-il 

en novembre/décembre chez les revendeurs Apple. Les 
développeurs peuvent obtenir une version US auprès d'Apple. 
Plus de précisions dans la cité Mac de CalvaCom... 





4) interface utilisateur - 6 I. 
De: Patrice DELORME (PD28) - 22 oct 87 19h07 


Je suis en train de concevoir une interface utilisateur en LM sur 
Apple //c du style Macintosh mais je me heurte à des problèmes 
d'organisation des routines. 

Pouvez-vous me conseiller un livre sur l'interface utilisateur du 
Mac qui débate des problèmes techniques de cet interface. 
Merci d'avance. 


Pour les contraintes à respecter : 
Inside Macintosh vol. 1 (Macintosh User Guidelines). 


Cela ne vous donnera que les principes à respecter mais aucune 
solution concernant la programmation de l'Apple //c : nous ne 
voyons pas que vous conseiller d'autre. 
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Bibliothèque de 
macros, par Mary Campbell, Que 
Éditions, 356 pages. Traduction. 


Excel — 


Un livre pour ceux qui ne veulent 
progresser que dans le domaine des 
macros. Comme il s'agit d'une 
traduction, on a droit aux surprises 
habituelles : tout le premier chapitre, 
par exemple, indique des virgules 
comme séparateurs d'arguments ; la 
programmation linéaire est définie 
comme une programmation de haut en 
bas. 


On peut regretter l'absence de liste 
récapitulative donnant une vue 
d'ensemble des fonctions et des 
commandes macros. L'intérêt principal 
de l'ouvrage réside dans les exemples 
de macros fournis. 


Excel applications, par David K. 
Simerly, Sybex, 296 pages, 248 F. 


Le prix n'est pas du tout justifié par la 
qualité ou l'intérêt de ce livre : ce livre 
fourmille d'exemples de formules mal 
construites et pourrait servir de base à 
un cours sur l'audit et l'amélioration 
de modèles Excel. Ainsi, de façon tout 
à fait originale, l'auteur invente une 
formule comme : 

SOMME(L9-{L9*0,4)) 
là où : 

0,6*L9 

suffirait ; les exemples de cet ordre 
sont multiples. 


L'auteur présente les codes de 
présentation des en-têtes et pieds de 
page tels qu'ils sont décrits dans la 
documentation d'Excel ; malheureuse- 
ment, dans la réalité, ils ne 
fonctionnent pas comme prévu et 
l'auteur ne s'en est apparemment 
jamais rendu compte. Pour savoir 





Alexandre Duback 


comment marchent ces codes, il faut 
se référer au Guide pratique d'Excel ou 
à Excel efficace, chez Cedic-Nathan. 


Graphisme et mise en page sur 
Macintosh, par Andréas Pfeiffer, 
Cedic-Nathan, 315 pages, 310 F. 


Il s'agit là d'un ouvrage proche, 
pratiquement une seconde édition, 
sérieusement remaniée, du livre 
Applications graphiques pour 
Macintosh. L'auteur est compétent et 
pratique ce qu'il enseigne. Seul 
problème, le livre étant publié en 
octobre 86, il n'inclut pas Xpress et 
présente Ready-Set-Go dans une 
version 2. 


L'édition sur Macintosh, par A. 
Chichery, J.-P. Drieux et A. Jarlaud, 
Dunod, 208 pages, 145 F. 


Le sous-titre indique "Think Tank, 
More, McWrite (sic), Jazz, Word, Mac 
Auteur, Writer Plus". C'est tout dire, 
quand on sait que Jazz et Mac Auteur 
sont quasiment aux oubliettes, et que 
Writer Plus a réussi à faire regretter 
son retard (tant qu'il était en retard, on 
pouvait encore rêver...). Le Word 
couvert par le livre en est à la version 
1.15. Certes, nous avons ce livre 
depuis bien deux ou trois mois mais, 
même à sa sortie en mars 87, il datait 
déjà. Si ce livre vous intéresse, 
attendez donc qu'il sorte en deuxième 
édition. 


Votre permis de conduire un 
ordinateur, par François Gazay, 
Tendances et évolutions technolo- 
giques, 207 pages, 95 F. 


Cet ouvrage a l'avantage d'être 
relativement clair et facile à lire. Les 
inconvénients : une présentation 


sobre, pour ne pas dire spartiate, et un 
contenu parfois un peu trop sommaire 
et pas tout à fait d'actualité. Ainsi, le 
chapitre Langages ne parle même pas 
d'Ada, et l'on a l'impression que 
l'auteur ne connaît ni les Macintosh, 
ni a fortiori les équipements puissants 
que sont aujourd'hui les 386 et autres 
Mac II. 


Excel efficace, par Hervé Thiriez, 
Cedic-Nathan, 263 pages format A4, 
295 EF. 

Disquette d'accompagnement diffusée 
par Éditions MEV : 175 F (800K) ou 
195 F (2 x 400K). 


Une centaine de thèmes, classés en 13 
chapitres et lisibles séparément les 
uns des autres, sont traités dans cet 
ouvrage qui s'adresse à tous les 
possesseurs d'Excel ayant déjà maîtrisé 
le B.A.BA de cet excellent logiciel. À 
la fin du livre, plusieurs tables de 
référence vous permettent de retrouver 
rapidement toutes les fonctions, les 
fonctions macro, les commandes et les 
raccourcis d'Excel. Les chapitres sont 
les suivants : Excel sur Macintosh, 
L'édition, Référence aux cellules, 
Présentation des feuilles de calcul, 
Performances, Les formats, Modifica- 
tion des structures, L'utilisation des 
tableaux, Organisation des données, 
Les macro-fonctions, Les macro- 
commandes, Pot-au-feu d'astuces et 
Audit d'une application. 

Dans la lignée de MacAstuces et des 
Secrets de Multiplan, ce livre est une 
mine de renseignements sur Excel et 
d'astuces d'utilisation. C'était le 
best-seller du stand PSI-Cedic à Apple 
Expo. 

Attention : le bon de commande de la 
disquette a été omis du premier lot de 
livres. Sachez donc que vous pouvez 
commander la disquette directement 
auprès de Pom's (voir le bon de 
commande en fin de ce numéro). 
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UNE COMMANDE A 23 HEURES ?. 
Vous êtes déjà nombreux à profiter de la messagerie 
CalvaCom pour vos questions techniques et à recevoir 
nos réponses même à des heures indues ! Votre revue 
est maintenant en mesure de vous proposer un nou- 
veau service qui ajoute la rapidité télématique aux pro- 
duits Pom's : la passion n'attend pas. 

Si vous êtes abonnés à CalvaCom, laissez-nous vos 
commandes dans notre boîte à lettres (emp11) : une 
disquette commandée le matin avant 10 heures sera 
expédiée le jour même... Cette commande peut, bien 
sûr être saisie directement sur le clavier Minitel mais, 
solution plus souple, vous pourrez utiliser le fichier 





texte à exporter, nommé Commande.CLV sur la dis- | 


quette de ce numéro. 

Vous devrez nous indiquez : 

- les produits souhaités, 

- vosnomet adresse, 

- votre numéro de Carte Bleue, Visa, Eurocard ou 
Mastercard, 

- sa date d'expiration, 

- le montant de votre commande. 


En demandantun accusé de réception, vousconnaîtrez 
l'heure de traitement. 
Belle occasion de s'abonner ! 











Gérard Vorreux, abonné du Nord, et Gérard Kittel 
de larégion parisienne, ontété les plus prompts dans 
la résolution de notre problème 32 





Mots Croisés 


Gibert d'Eyguières, Jean Payat de Chénove, Olivier 
Blondeau de Saint Maur, Pascal Quilez de Bordeaux 
et A. Blandy. Les possesseurs de 


(solution ci-contre). Ils bénéficient CIHAIUISISIEITITIE Macintosh trouveront sur la 


d'un avoir de 200,00 F. Félicitations 
également à : Robert Baccou de 
Paris, Alain Pastor de Montreuil, 
Gisèle Perrault de Paris, Gérard 
Mandel de Paris, C. Jacolin de 
Allauch, René Martin de Cognin, 
M. Stankiévitch d'Aix, Ferdinand 


Problème 33 par Joëlle Piard 


Horizontalement 
1 - Tôt ou futé. 
2 - Ecrit des sous-programmes, par habitude ? 
3 - Assoiffer. Bien mangé. 


4 - Met tout-à-fait hors de soi. Partie de charpente. 


Œïillet sans queue. 
5 - Fief. 
6 - Lointains souverains. Manque d'entrain. 
7 - Elcitra. Préfixe vaporeux. 
8 - Imaginaires. Tout bénéfice. Drame. 
9 - Premièrement, mais ce n'est pas le début. 
10 - Tracassates. 


Verticalement 





disquette d'accompagnement de ce 
numéro la grille etle programme de 
Roland Jost (application Turbo- 
Pascal publiée dans le numéro 32) 
quiremplacera avantageusement le 
crayon et la gomme pour la 
résolution du problème ci-dessous. 


© @Q J AO OU BR NN NN 





1 - Organisme rouge. 2 - N'a que faire des paroles. - Déesse blanche. 
3 - Ne supporte pas la rosière. - Personnel. 4 - Pour l'infection. Pansue. 
5 - Halons. WHO pour les Anglais. 6 - Suffixe mémorable. - Henri y fit construire un château. 


7 - Pour le 2.1 vertical. - Jeu d'aventures. 


8 - Personnel ou personnel. Sans intérêt pour les vaches. Copule. 


9 - Même pas échafaudé. 10 - Coca - Bèbêtes. 
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CLV_Pom's - 140Ko ou 800Ko 200,00 F LC] 


CLV_Pom's  200,00F ©] 








Editeur Vidéotex - 140Ko 200,00 F CO] Excel eff. 800K 175,00 F C1 
E.P.E. 5.1 - 140Ko 200,00 F CO] Excel eff. 400K 195,00 F C1 
E.P.E. 5.1 - 800Ko 200,00 F CO] MacAstuces  200,00F ©] 
Max (moniteur étendu) - 140Ko 150,00 F CI Mac ‘A 80,00 F [1 
BananaSoft - 140Ko 200,00 F C1 Mac 'B’ 80,00 F CI 
Pascal - 140Ko 80,00 F C] Mac ‘C’ 80,00 F C 
Ordico - 140Ko 200,00 F O Mac ‘D’ 80,00 F CO] 
Dominos - 140Ko 80,00 F C1 Mac ‘E’ 80,00 F Cl 
COGO - 140Ko 200,00 F [] Mac ‘F' 80,00 F CI 
Ludologic - 140Ko 80,00 F C1 Mac ‘G’ 80,00 F C1 
Mac ‘H’ 80,00 F C] 

Mac 80,00 F CO 

Recueils Pom's Mac 17 80,00 F [] 
Mac 18 80,00 F [1 

Numéro 1 (Revues 1 à 4) 140,00 F C1 Mac 19 80,00 F [] 
Disquettes 1 à 4 200,00 F C1 Mac 20 80,00 F CI 
Numéro 2 (Revues 5 à 8) 140,00 F [] Mac 21 80,00 F C1 
Disquettes 5 à 8 200,00 F C1 Mac 22 80,00 F C] 
Numéro 3 (Revues 9 à 12) 140,00 F CO Mac 23 80,00 F C1 
Disquettes 9 à 12 200,00 F OI Mac 24 80,00 F C] 
Mac 25 80,00 F C] 

reliures toilées Mac 26 80,00 F C1 

pour 6 numéros, soit un an 60,00 F C1 Mac 27 80,00 F [1 
Mac 28 80,00 F CI 

Apple ][ 800Ko 35 numéro 29  80,00F C] Mac 29 80,00 F C1 
Apple ][ 800Ko 3'5 numéro 30  80,00F Cl Mac 30 80,00 F ©] 
Apple ][ 800Ko 35 numéro 31  80,00F C1 Mac 31 80,00 F [1 
Apple ][ 800Ko 3'5 numéro 32 80,00 F C1 Mac 32 80,00 F ©] 
Apple ][ 800Ko 3°5 numéro 33 80,00 F C1] Mac 33 80,00 F [] 


Revuen° 8 35,00 F0] 
Revue n° 13 40,00 FC] 
Revue n° 17 40,00 FC] 
Revue n° 21 40,00F[] 
Revue n° 25 40,00 F0] 
Revue n° 29 45,00 FC] 
Revue n° 33 45,00 F0] 


Abonnements pour six numéros à partir du 


la revue seule 





Revue n° 10 40,00F 0] 
Revue n° 14 40,00 F0] 
Revue n° 18 40,00 FC] 
Revue n° 22 40,00 FC] 
Revue n° 26 40,00 FC] 
Revue n° 30 45,00 FC] 


la revue et les disquettes Apple ][ 140Ko — 5 1/4 
la revue et les disquettes Apple ][ 800Ko -3' 1/2 
la revue et les disquettes Macintosh 

la revue, les disquettes Apple ][ 140Ko -— 5' 1/4 et les disquettes Mac 
la revue, les disquettes Apple ][ 800Ko — 3' 1/2 et les disquettes Mac 





Revue n° 11 40,00F[C] 
Revue n° 15 40,00F[] 
Revue n° 19 40,00 FC] 
Revue n° 23 40,00 F0] 
Revue n° 27 45,00F[C] 
Revue n° 31 45,00F [0] 


sas 


Envoyez ce bon et votre règlement à : Éditions MEV - 12, rue d'Anjou - 78000 Versailles 


Nom : 
Adresse : 


Disquettes Apple ][ Macintosh 


Accompagnement 


A JL 140Ko 4 
A JL 140Ko 5 
A I 140Ko 6 
A ] 140Ko 7 
A ][ 140Ko 8 
A JL 140Ko 9 
A JL 140Ko 10 
A ] 140Ko 11 
A ][ 140Ko 12 
A J[ 140Ko 13 
A ][ 140Ko 14 
A J[ 140Ko 15 
A ][ 140Ko 16 
A ][ 140Ko 17 
A JL 140Ko 18 
A ][ 140Ko 19 
A ][ 140Ko 20 
A ][ 140Ko 21 
À ][ 140Ko 22 
À ][ 140Ko 23 
À ][ 140Ko 24 
À ][ 140Ko 25 
À ][ 140Ko 26 
À ][ 140Ko 27 
À ][ 140Ko 28 
À ][ 140Ko 29 
A ][ 140Ko 30 
A JL 140Ko 31 
À ][ 140Ko 32 
À ][ 140Ko 33 


Revue n° 12 
Revue n° 16 
Revue n° 20 
Revue n° 24 
Revue n° 28 
Revue n° 32 


225,00 F 
525,00 F 
625,00 F 
625,00 F 
925,00 F 
1025,00 F 


60,00 F CI 
60,00 F C] 
60,00 F C] 
60,00 F C] 
60,00 F CI 
60,00 F C] 
60,00 F CI 
60,00 F C] 
60,00 F C] 
60,00 F C] 
60,00 F C1 
60,00 F C 
60,00 F C] 
60,00 F C] 
60,00 F C] 
60,00 F C] 
60,00 F CI 
60,00 F CI 
60,00 F C] 
60,00 F C] 
60,00 F CI 
60,00 F C] 
60,00 F C] 
60,00 F C] 
60,00 F C] 
60,00 F C1 
60,00 F C] 
60,00 F C] 
60,00 F C 
60,00 F CI 


40,00 FC] 
40,00 FC] 
40,00 FC] 
40,00 F0] 
45,00 FO] 
45,00 FC] 


OOUDO0O0D 


Règlement par : CB/Visa/Eurocard/Mastercard CI Chèque bancaire [] Chèque postalL] Mandat [] 


numéro de la carte 


Monanteses Fr 


date d'expiration 


Signature : 


* pour les envois par avion, ajoutez 15 F par numéro etou par disquette soit, par exemple, 90 F pour un abonnement avec ou sans disquettes. 
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Câble-interface de communication Apple/Minitel 


Cette liaison est indispensable pour faire fonctionner les programmes suivants : 

MinBas pour Apple ][+, //e, //e+, lIc et 1IGS* : programme permettant l'enregistrement des écrans Minitel, la restitution à loisir 
hors réseau, le stockage et/ou l'impression de copies d'écran du Minitel, et aussi l'envoi de textes ou messages sur un serveur, ces 
messages étant préparés à l'avance avec n'importe quel programme de traitement de textes. Programme du numéro 27 de Pomr's. 
Minitel/1 pour Macintosh : programme identique à MinBas pour Apple ][, avec en plus un mini-éditeur de texte pour la préparation 
et le stockage des messages sans sortir du programme. Programme publié dans le numéro 27 de Pom's. 

InterPom's 1.0 pour Apple J{+, //e, //e+, /Ic et //GS* et Macintosh : programme de téléchargement entre Apple ][ etou Apple ]] 
et Macintosh. Ce logiciel autorise la transmission de n'importe quel type de fichier (système, texte, binaire, Basic.) en utilisant le 
Modem du Minitel, Programme publié dans le numéro 28 de Pom's. 

TPom's pour Apple ]{+, //e, l/e+, lc et /IGS** et Macintosh : programme de récupération de l'annuaire téléphonique sous la 
forme de fichiers texte. Numéro 30 de Pom's. 

CIv_Pom's pour Apple ][+, //e, /le+, lIc et /1GS** et Macintosh : programmes de communication pour une meilleure utilisation de 
CalvaCom et des serveurs ‘ASCIl'. Programmes présentés dans le numéro 31 de Pom's, page 2. 

Paint — Minitel pour Macintosh et HGR — Minitel pour Apple ][+, //e, //e+, /Ic et //GS** : graphisme et Minitel, programmes 
proposés dans ce numéro. 


* ce programme est prévu pour fonctionner avec une carte Super Série Apple ; le port série intégré de l'Apple 1IGS ne convient pas. 
Toutefois, si vous désirez utiliser le port intégré afin d'y connecter le Minitel pour d'autres applications, commandez un câble pour 
Macintosh Plus. 

* sur un Apple IIGS, ce programme fonctionne indifféremment avec le port série intégré ou la carte Super Série Apple. Pour 
connecter le port intégré du 1IGS, utilisez un câble pour Macintosh Plus. 














Je désire recevoir: câble Minitel/Apple ][+, //e, //e+, las avec SSC à 225,00F 

câble Minitel/Apple //c à 225,00F 

câble Minitel/Macintosh 128 & 512Ko à 225,00F 

câble Minitel/Macintosh Plus, Iles port intégré à 225,00F 

câble Minitel/1BM PC"* à 225,00F 

câble de liaison locale Apple 1l/Mac/IBM°" * à 225,00F 
“(préciser le type des deux machines à relier : Mac 512, Mac Plus, Apple //e, //c, IIGS, IBM R6") 
* pour les envois par avion, ajoutez 15 F par câble. 
Envoyez ce bon et votre règlement à : Éditions MEV - 12, rue d'Anjou - 78000 Versailles 
Nom : 
Adresse : & 
Règlement par : CB/Visa/Eurocard/Mastercard  CI& Chèque bancaire [1 Chèque postal LT Mandat [] 
numér CDs: là Care. ue. Lee date d'expiration __ __ __ 
Montant. _=,.F Signature : 








Programme de transmission InterPom's 


Ce programme décrit dans le numéro 31 vous donne la possibilité d'échanger à distance via Minitel et en local des fichiers de texte 
entre Apple /!, Macintosh et IBM PC", Entre deux machines de même type, tous les fichiers sont transférables : Applications, polices 
de caractères, accessoires de bureau, commandes, documents graphiques etc. 


Je désire recevoir : InterPom's pour Apple //, disquette 140Ko, 5'25 à 450,00F 








InterPom's pour Apple //, disquette 800Ko, 3'5 à 450,00F 

InterPom's pour Macintosh, disquette 3'5 ____ à 450,00F 

InterPom's pour IBM PC" ____ à 450,00F 
* pour les envois par avion, ajoutez 15 F par disquette. 
Envoyez ce bon et votre règlement à : Éditions MEV - 12, rue d'Anjou - 78000 Versailles 
Nom : 
Adresse : — & 
Règlement par : CB/Visa/Eurocard/Mastercard  LI& Chèque bancaire [1 Chèque postal [1 Mandat D 
RUMÉrO:0S EE CAN 2, date d'expiration __ __ __ 
Montant “_#F Signature : 


Dépôt légal : novembre 1987, n° d'impression 789667 








AN ASHTON TATE 


dBASE Mac 


dBASE Mac a été spécialement conçu pour tirer parti de toutes les 
caractéristiques du Macintosh. Véritable gestionnaire de bases de 
données relationnelles, il allie toute la puissance et la fiabilité de 
dBASE IIT à la convivialité du Macintosh. Nul doute que dBASE 
Mac saura s'imposer comme un standard au même titre que dBASE 
sur PC, avec lequel il échange directement les fichiers de données. 
Grâce à l’interface visuelle du Macintosh, les relations multiples entre 

les fichiers sont représen- 

tées à l'écran. dBASE 

Mac possède également 


a, & ASTON ‘JATE un puissant langage de 
programmation qui per- 

AE dBASE Mac met de bâtir des appli- 

e. o dB philo | cations de gestion. 


be Las PA 3 950 F «HT 
















F4 La Commande Electronique 
LLI 7, RUE DES PRIAS — 27920 SAINT-PIER TER EE 
TÉL. 32 52 5402 FAX N° 325254 46 T 85; 








ren — sen _— peint . 








